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ABSTRACT 



Prototyping is an important software development method to rapidly construct 
software, validate and refine requirements, and check the consistency of proposed 
software designs. This thesis describes the design and implementation of a CASE 
tool to be used in conjunction with the Computer Aided Prototyping System (CAPS) 
which retrieves and prepares reusable components for use in PSDL (Prototype 
System Description Language) prototypes. Reusable components and their PSDL 
specifications are stored in an software base. 

Components can be retrieved from the software base via its Object-Oriented 
Data Base Management System (OODBMS) using PSDL to formulate queries. All 
of the PSDL specifications for the reusable components are normalized and stored 
in the software base to support efficient search based on a given query PSDL 
specification for a software component. The search process is based on both 
syntactic and semantic matches between the query and stored components. 

Our software base has been designed to be easily configured to support 
storage and retrieval of reusable components in any programming language with 
the initial configuration for Ada components. 

A window based user interface was also implemented to allow easy access to 
the software base via the CAPS user interface as well as stand alone use. 
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I. INTRODUCTION 



This thesis addresses the issues related to the design and implementation of an 
automated reusable software component retrieval system. The purpose of the system is 
to support the Computer Aided Prototyping System (CAPS) [Ref 1]. CAPS is an 
ongoing software engineering research project at the Naval Postgraduate School. The 
reusable component retrieval system is a critical component in the CAPS tool set. 

This chapter provides an introduction to computer aided prototyping and the need 
for automated retrieval of software components. Chapter II details the current state of 
the art in component reuse and reusable component libraries. Chapter IV is an overview 
of CAPS and its specification language, Prototyping System Description Language 
(PSDL), used for specifying reusable components. Chapter IV presents the design and 
implementation of the software base for CAPS. Chapter V contains the conclusions of 
this research and recommendations for future research. Appendix A details the usage of 
PSDL to specify reusable components. Appendix B contains the source code for the 
software base system. Appendix C is the source code for the generation of the PSDL 
parser. Appendix D presents an example of how to integrate reusable Ada components 
into a CAPS prototype. Appendix E provides the specification for the software base 
command line interface. Appendix F is a users manual for the software base graphical 
user interface. Appendix G is the source code for the software base graphical user 
interface. 
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A. THE SOFTWARE CRISIS 



Creating software for hard real-time and embedded computer systems is a complex 
process. The complexity of this task has created a situation where the demand for these 
systems currently exceeds the ability of the software industry to develop them. 

The United States Department of Defense (DOD) is the world's largest user of 
embedded computer systems. In the mid 1970's the gap between the growing demand for 
high quality software and industry's inability to meet that demand caused the DOD to 
investigate potential solutions to the problem. The DOD concluded that the problems 
"...appear in the form of software that is non-responsive to user needs, unreliable, 
excessively expensive, untimely, inflexible, difficult to maintain, and not reusable." 
[Ref. 2:p41] 

One of the results of this investigation was the development of the Ada programing 
language. Although Ada provides some capabilities to overcome the shortcomings noted 
by the DOD additional software tools are still required if the software gap is to be closed. 
These tools are especially needed in the areas of requirements analysis and refinement, 
software validation, and software testing. The design and implementation of tools in 
these areas continues to be a major focus of software engineering research. 
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B. STRUCTURED ANALYSIS 



A widely used design methodology that attempted to address the issues in software 
development is Structured Analysis [Ref 3:p78]. Structured analysis breaks the creation 
of software systems into distinct areas or steps, which is essentially a variation of the 
"waterfall" model in DOD-STD-2167A [Ref 4:pl0]. 

Its first step is requirements analysis. During this step the actual needs and external 
interfaces of the system are identified and recorded. The second step is functional 
specification of the system. Functional specification uses the requirements from the first 
step to specify the proposed external functionality of the software system. The third step 
in structured analysis is system design. During the design step the internal aspects of the 
system are specified. This design is then used in the fourth step, which is system 
implementation. After the system has been implemented the system is tested and 
delivered. After initial system delivery the software enters its maintenance phase. 
Maintenance of the system follows the same basic approach with each change going 
through requirements analysis, design, and finally implementation. 

If at any time during this approach an inconsistency is identified the process reverts 
back to the appropriate step to correct the problem. This method of software 
development has been called the "waterfall approach" because the system goes from one 
step to the other as though going down a waterfall. Figure 1 is a graphic representation 
of classical structured analysis. 
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Figure 1 - Classical Structured Analysis 

This approach has been modified [Ref 3] to make the steps in the model less distinct 
and allow more parallel effort. The steps were made less distinct because in practice it 
was found that information discovered in later steps sometimes required earlier steps to 
be modified. The ability to complete steps in parallel is possible because some functions 
lower in the cycle can be performed while higher level items are being completed. This 
parallel activity can greatly enhance the efficiency of the overall effort and allows for 
more feedback between steps. 

In order for this approach to work there must be a means of communicating the 
results of each step other than plain English. This is because English prose can be 
amibiguos and if is very difficult to verify the consistancy of a written document. 
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Several representations were developed in order to convey this information. These 
representations include Data Flow Diagrams (DFD’s), Context Diagrams (CD’s), Entity 
Relationship Diagrams (E/R Diagrams), State Transition Diagrams (STD's), and Data 
Dictionaries (DD). These representations make it possible for the developers to 
communicate with each other the behavior of a proposed system. 

One of the deficiencies of structured analysis is that the English prose used to 
describe portions of the requirements of the system often is not precise enough to define 
critical subsystems. This is very important where failure of a real-time or embedded 
system to meet a given requirement could result in injury or death. Most military 
software systems and medical systems fall into this category because failure can result in 
life threatening circumstances. 

Several high level specification languages have been developed to solve these 
problems. These languages support formal specifications of critical portions of the 
system. From these formal specifications the system can be verified to achieve the 
required functionality. One such specification language is SPEC [Ref 5: p82]. SPEC 
can be used to rigorously specify critical sections to avoid ambiguity. 

Communication between a software development team and the system's end users is 
difficult using structured analysis. This communication is vital since in most cases the 
software development team is unfamiliar with the domain of the proposed system while 
the domain experts (end users) are unfamiliar with many of the representations used in 
the development of the software system. 



5 



Although DFD's, CD's, E/R diagrams, STD's, DD's, and formal specification 
languages are very useful for communication between software engineers, many end 
users are unfamiliar and/or uncomfortable with them. This results in potential mistakes 
or misconceptions between the developers and the users in the early stages of a project 
that can go undetected until the first executable version of the system has been 
completed. The development of this first executable version of a system can consume so 
much of a projects allotted development time or budget that it may be too late or costly 
to make any major modifications. This results in the end user being forced to accept a 
system that does not meet their original expectations. 

C. RAPID PROTOTYPING 

One promising area of software engineering research that addresses this problem is 
rapid prototyping [Ref 6]. A prototype is an executable model of a proposed software 
system, usually including a software simulation of the system's hardware external 
interfaces. The prototype accurately reflects chosen aspects of the system including 
display formats, correctness of computations, and real-time constraints. 

Prototyping attempts to solve the communications problem by rapidly developing a 
prototype of the proposed system from available information and then using that 
prototype to communicate to the user[Ref 7], The executable prototype presents a view 
of the system that the user is most familiar with. This allows the user to provide 
feedback to the design team that can be used to update the prototype. This feedback 
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process continues until the user is satisfied that the prototype accurately describes the 
needs of the system. At this point the prototype system itself acts as one of specification 
tools for the final system. 

There are two problem areas in the acceptance of prototyping as the preferred 
software development technique. The first is that the process of creating and modifying 
prototypes must be rapid enough to avoid the same resource consumption pitfalls of 
classical structured analysis. The second difficulty is that typically prototype systems are 
used only as a guideline for the final system. Yourdon states "when the modeling is 
finished, the programs will be thrown away and replaced with REAL programs." 

[Ref 3:p98] If all of the prototype system is completely discarded it becomes 
questionable as to how effective the prototyping approach is at reducing software system 
development cost and time. 

Without addressing these two issues prototyping could actually increase the overall 
development time and cost of the system as compared to structured analysis. Clearly to 
fulfill the promise of rapid prototyping it is necessary to overcome these difficulties. 

The solution to the first problem is the development of computer aided prototyping 
systems that enable the rapid development of executable prototypes. To achieve this 
rapid evolution of executable prototypes it is necessary to achieve a very high rate of 
code reuse instead of creating the entire prototype from scratch [Ref 8]. The solution to 
the second problem is to implement the prototype with code of sufficient quality that 
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only those modules that require performance enhancements need be re-implemented to 
produce the final system. 

With this in mind it is clear that for rapid prototyping to be of maximum benefit, 
reusable component libraries containing many high quality components coupled with 
powerful query techniques to identify components for reuse are mandatory. The 
remainder of this thesis discusses CAPS and the development of a reusable component 
software base that fulfills these requirements. 

D. THE COMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 

The Computer Aided Prototyping system is designed as a rapid prototyping system 
for hard real-time systems. CAPS prototypes a system through translation of the high 
level specification language Prototyping System Description Language (PSDL) into Ada 
code along with the incorporation of atomic Ada reusable components [Ref 9]. The 
concept of using both specification translation and atomic component composition makes 
CAPS a unique prototyping tool. PSDL is unique in that it provides a rich set of 
real-time constraints to enable the prototyping of hard real-time systems, and automatic 
translation of these timing constraints into Ada tasking information. 

The use of composition of atomic components allows for the use of high quality 
reusable Ada components to provide the majority of the code to implement the prototype. 
PSDL is used to specify the interface and functionality of the atomic components to 
make automated searches of a reusable component library feasible. 
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The software base subsystem of CAPS has been designed to allow the user to create 
a PSDL specification of a necessary component and then perform an automated search 
of the library for preexisting candidate implementations of the specification. Automation 
of the search of the software base is critical because the software base must be able to 
grow indefinitely without significantly degrading the users ability to locate components 
for reuse. As the software base grows larger fewer components will need to be manually 
coded, thus achieving a system that provides greater power with time. 

E. GOALS OF THIS THESIS 

The goal of this thesis is to describe the design and implementation of a software 
base system for the CAPS prototyping environment. The theoretical foundations for 
component matching, the development of algorithms to take advantage of these concepts, 
the design of a database structure that enables the efficient implementation of the entire 
system, and a description of how to obtain the maximum benefit of using this system are 
discussed. 
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II. REUSABLE COMPONENT LIBRARIES 



As the gap between the demand for software systems and the software industry's 
ability to meet it became obvious, so did the need to reuse existing software components. 
Many retrieval systems have been proposed and implemented that address this issue. 
Several of these systems are discussed in this section. 

In order to compare and contrast these retrieval systems it is necessary to develop a 
metric by which the systems can be evaluated. How well an information system 
performs is based on the nature of the objects that are returned for a given query. The 
two most useful measures of performance for a retrieval system are precision and recall 
[Ref 10]. Precision is defined as the ratio between the number of relevant components 
retrieved and the total number of components retrieved. Recall is defined as the ratio 
between the number of relevant components retrieved and the number of relevant 
components in the database. Precision and recall are both maximal when they equal 1. 

There is a tradeoff between precision and recall. It is easy to have a system 
maximize one but not the other. If the system returns all objects in the database than 
recall will always be 1 but precision will be very low. On the other hand if a query only 
yields one relevant component than precision would be 1 but recall would be low. 

In order to obtain maximum reuse of existing software components in a given 
collection of components, queries on that collection should have a recall value of 1. 
Without a recall of 1, components that could be reused will be missed. The system also 



10 



needs a high degree of precision because it is possible to spend more time manually 
searching through the results of a component query with low precision than it would take 
to implement the component manually. 

A. RETRIEVAL METHODS 

Almost all of the tools developed to assist in reusing software components use one 
(or more) of three different approaches for retrieval of components; browsers, informal 
specifications, or formal specifications. For this reason a general overview of these 
retrieval methods is presented followed by a discussion of some existing tools that use 
these methods. 

1. Browsers 

A browser is a tool for looking through a collection of software components. 
The interface for a browser can range from simple text through complex graphical user 
interfaces. The goal of all such systems is to allow the user to direct a search through the 
available components. 

The advantage of a browsing system is that the user is given complete control 
over the retrieval process. This can be important for users who are familiar with the 
content of the software collection and want the ability to quickly traverse the structure of 
the collection to find components that they know are in the collection. 

The first disadvantage of the system is that it has very low precision. The user 
may have to look at all of the components to find the one that is desired. Because of the 
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manual nature of the search, as the software collection grows the time the user spends 
browsing also increases. 

The second disadvantage of browsing is that the system relies on the users 
knowledge of the structure of software collection. Without such knowledge a user will 
have difficulty in directing a search to retrieve a desired reusable component. 

The third disadvantage of this type of a system is that unless the user finds 
exactly what they are searching for, there is no clear termination point for the search until 
every component has been reviewed. 

2. Informal Specifications 

This technique requires the user to describe or list some attributes of the 
component that they are looking for. This informal description is then used to direct the 
user to the appropriate components. Examples of some common attributes are keywords 
and natural language interfaces. 

B. KEYWORD SEARCH 

A keyword searching mechanism requires the user to specify a list of 
words relevant to the component being sought. The keywords the user chooses can be 
drawn from a known system vocabulary (controlled vocabulary) or they can be 
unconstrained (uncontrolled vocabulary). In the case of uncontrolled vocabulary 
synonym tables are often used to normalize the keyword selections into a known 
vocabulary. 
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The advantage of the keyword query is that it is conceptually simple and 
reduces the number of components that the user must review. Because of this simplicity 
many of the software component retrieval mechanisms reviewed in the next section 
employ some aspects of this technique. 

There are two basic disadvantages to this approach. The first one is that 
the precision and recall of the system depend on how many keywords are used for the 
query. Using only one keyword typically will result in a very large number of 
components (high recall, low precision). Using too many keywords could miss possible 
candidate components (high precision, low recall). 

The second disadvantage is that the user must be familiar with the 
structure of the keyword categories that are being used by the collection administrator to 
achieve maximum benefit form the system. Without such knowledge a user can easily 
miss potential candidates that match their needs. 

C. MULTI-ATTRIBUTE SEARCH 

A multi-attribute search is really just an extension of the keyword 
concept. Instead of using only keywords for forming a query, other attributes of the 
search component can be used as well. These attributes includes the class of component 
(procedure, function, package, etc.), the number and type of parameters used, its domain 
of use, etc. 
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The advantage of this type of system is that by using more than just 
keywords the search can be more selective. All of the attributes taken together make up 
a classification scheme that provides more information than keywords alone. 

The disadvantage to this type of system is that the collection 
administrator must identify the attributes for stored components and the user must 
identify the attributes of the component that is desired. If the user succeeds in filling in 
the same attribute values as the administrator will a query be successful, otherwise the 
query mechanism must be capable of identifying when two attributes are "close" to being 
the same. 

1. Natural Language Interfaces 

Natural language interfaces for information retrieval is a growing field of 
computer science research. An advantage of this system is the ease in which a user 
describes a desired component. 

The difficulty in this approach is that due to the broad semantics of the English 
language, implementation of these systems have had to constrain the language used to 
form a query. As the number of constraints on the query language grows the system 
begins to be more like a multi-attribute system. 

2. Formal Specifications 

The use of formal specifications to direct a reusable component query can be 
very beneficial. Because specifications systems such as SPEC and OBJ3 [Ref 11] are 
based on predicate calculus they are free from ambiguity. This means that formal 
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specifications can be transformed into normal representations without changing their 
meaning using logic and term rewriting rules. 

Matching of specifications allows queries that achieve both high precision 
(formal specifications enable conclusive demonstrations that particular components do 
meet the requirements in a query) and high recall (through term rewriting it is possible to 
allow candidates with appropriate functionality to be located even if the author of the 
component did not anticipate the components being utilized in this context). 

The primary disadvantage of this approach is that writing formal specifications 
for components is difficult and requires software engineers with advanced skills. 
Another disadvantage is that automated matching of formal specifications can be time 
consuming. 

D. REVIEW OF CURRENT SYSTEMS 
1. Draco 

The Draco project was born in the early 1980’s at the University of California, 
Irvine. The Draco approach to software reuse is essentially a multi-attribute query 
system. Software components are organized into problem areas or domains. Queries are 
constructed by the formulation of a tuple of attributes that best characterizes a particular 
domain. Each domain uses a different set of attributes for its queries. This type of 
classification of components has been called faceted classification [Ref 12]. 
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In evaluating the effectiveness of faceted classification Draco researchers 
compared it to a system using no classification scheme. Using faceted classification the 
number of components retrieved was reduced by more than 50% yet the precision of the 
queries was 100%. 

The advantages of faceted classification are that it is conceptually simple for 
users and relatively easy to implement. Because of this, the concept has been borrowed 
to implement the retrieval methods in both RAPID and OSS (See sections B.2 and B.3). 

One of the disadvantages of this type of system is that semandcally similar 
components may be missed because there attribute definitions are different. Draco 
addresses this issue by maintaining a measure of conceptual closeness for the term lists of 
each attribute. This allows unsuccessful searches to be tried again using an alternate but 
similar term for one of its attributes. 

Another disadvantage of this system is that components in other domains that 
may be useful are easily missed. This puts the burden on the user to ensure that they 
have selected an appropriate domain for their search. 

2. Rapid 

The RAPID (Reusable Ada Packages for Information System Development) 
project is an ongoing effort in the Department of Defense. The objective of RAPED is to 
provide software engineers with quick access to reusable Ada packages in the 
information systems domain. The system performs reusable component classification, 
storage and retrieval. 
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RAPID uses a faceted classification scheme to organize and retrieve 
components and thus uses multi-attribute searches [Ref 13]. The system is currently 
being beta tested but no measures of performance or quality assessments are available 
yet. 

3. Operation Support System 

The Operation Support System (OSS) is an ongoing project aimed at 
developing an integrated software engineering environment. The system is being 
developed at the Naval Ocean Systems Center. One of the goals of the project is to 
establish a Naval software library of reusable software components. 

The current prototype library subsystem allows for component retrieval using 
faceted classification (See section B.l), keywords, or simple textual browsing. The 
components currently stored in the library are for command, control, and 
communications and intelligence (C 3 I) systems. Due to the early stages of this project no 
information is available on the performance characteristics of the system. 

4. The Reusable Software Library 

The Reusable Software Library is a system design by Intermetrics to make 
software reuse an integral part of the software development process. Components in this 
system are stored in a database with attribute values that provide the basis for a search. 
There are two methods available to search for a component. These methods are based on 
multi-attribute and natural language searches. 
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The multi-attribute search provides a menu driven system in which the user 
selects the attributes desired for the search. Alteratively the user may express the query 
in a natural language form such as "I want a stack package for Integers." The system 
parses this natural language input for keywords and forms a multi-attribute query from it. 

The designers of the system report [Ref 14] that the natural language front end 
is considerably easier to use but the search speed is significantly slower. No additional 
measures of performance were provided. 

5. Common Ada Missile Packages 

The Common Ada Missile Packages (CAMP) project is an effort sponsored by 
the Department of Defense to create a software engineering system and reusable software 
library of components. The system is directed toward software for missile systems and 
uses Ada as the source language for its reusable components. 

The main part of the reusable component system is the Parts Engineering 
System (PES) catalog. The PES catalog is similar to a card catalog for books. The 
catalog system, used by both software engineers and domain engineers, is written in Ada 
and provides a menu driven interface for storing, modifying, and retrieving components 
(parts). Queries to this system are of the multi-attribute type. 

Users select a set of attributes to search for from a predetermined finite list of 
values. The system then queries on each of these attributes one at a time. The results of 
these queries can be chained together to achieve a multi-attribute query. The CAMP 
documentation [Ref 15] does not assess the performance of the PES Catalog system. 
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6. Software Reuse At Hewlett-Packard 



Hewlett-Packard recognizes the need to make software reuse an integral part 
of the software development process [Ref 16]. A reusable component retrieval system is 
currently under development to help achieve this goal. The system will have a hyper-text 
browsing facility as well as using informal specifications to locate reusable components. 
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III. CAPS AND PSDL 



The Computer Aided Prototyping System (CAPS), with its accompanying 
specification language the Prototyping System Description Language (PSDL), is an 
ongoing software engineering project in the Naval Postgraduate School computer science 
department. CAPS is a set of software tools designed to automate the process of 
prototyping real-time software systems [Ref 17). 

A. USING CAPS TO BUILD EXECUTABLE PROTOTYPES 

The basic building blocks for a prototype in CAPS are operators , types, and 
streams. The software system being prototyped is modeled as an OPERATOR whose 
input and output streams correspond to the external interfaces of the system. For 
prototyping purposes, CAPS uses operators for software simulation of external entities as 
well. Based on this, the top level Data Flow Diagram (DFD) for the prototyped system is 
composed of an operator that represents the proposed system itself, one operator for each 
external entity, and the external data streams in and out of the proposed system. This top 
level DFD is the decomposition of a single operator that represents a closed system 
composed of the proposed software and all external systems that interact with the 
software. Figure 2 is an example of a top level DFD for a prototyped software system. 
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Figure - 2 CAPS Top Level DFD For Robot Prototype 



CAPS prototypes are expressed in the Prototyping System Description Language 
(PSDL). PSDL is based on a graph model for real-time system: 

G=(V ,E,T(V),C(V)) 

where G is the graph that represents a prototype, V is the set of vertices in the graph 
where each vertex represents an operator in the prototype, E is the set of directed edges 
in the graph where each edge represents a data stream, T(V) is the set of timing 
constraints that are imposed on the vertex set V, and C(V) is the set of control constraints 
placed on the vertex set V [Ref. 18]. 

Decomposition of a prototype is achieved by implementing each of its composite 
operators with a graph. Each new graph G' is a more detailed representation of one of 
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the nodes in its parent graph G. Decomposition of operators continues in this fashion 
until each operator has been fully decomposed. 

In order to make a prototype specified in PSDL executable, it is necessary to 
provide programming language implementations for all leaf operators. The current 
version of CAPS requires that all leaf operators be implemented in the Ada programming 
language. Future versions of CAPS will be capable of supporting other programming 
languages as well. 

Each data stream in CAPS carries an instance of an abstract data type. The abstract 
data type for each stream is defined as a PSDL TYPE component. This definition 
includes all of the OPERATORS that can operate on that data type. A PSDL type’s 
operators can also be graphically decomposed in the same manner as a prototype's 
operators. To make a prototype executable, all of the PSDL type's leaf operators must 
be implemented in Ada. 

In the current version of CAPS the designer uses a graphical editor to design and 
decompose the prototype’s operators [Ref 19]. Future versions of CAPS will also allow 
for graphical design of abstract data types. 

By specifying prototypes in this manner CAPS can rapidly build an executable 
real-time prototype for user validation. Any deficiencies that the validation process 
identifies can be applied to the prototype and a new executable generated. This process 
can be repeated until the prototype meets all of the users needs. 
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B. USING REUSABLE COMPONENTS IN CAPS 



To achieve maximum benefit as a rapid prototyping system it is necessary for CAPS 
to achieve a high rate of component reuse in the implementation of leaf operators. The 
software base described in this thesis has been designed to support this goal. 

After the user has specified a needed operator or type, they have the opportunity to 
use that specification as a query to the software base to look for a potential match. If one 
is found it can be included in the prototype. If not the user has the choice of 
decomposing the component further or implementing the component manually. 

In addition to automatic component retrieval facilities, the software base contains a 
keyword browsing feature to assist the designer in finding components in the software 
base to be used for manual implementation. 

PSDL "was designed to serve as an executable prototyping language at the 
specification and design level." [Ref 17, p26] The grammar for the PSDL interface 
specification is not biased toward a particular programming language but rather is 
general enough to allow it to be extended to support any programming language. 

Because of this general design it is necessary to add some pre-defined abstract data 
types with specific interpretations related to software reuse to PSDL (not the grammar 
itself), in order to adequately specify a component for automated retrieval. These 
extensions include a methodology for describing type inheritance and distinguishing 
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between different types of generic parameters. A description of how PSDL was extended 
to support reusable components in Ada is included in Appendix A. 
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IV. SOFTWARE BASE IMPLEMENTATION 



A. REQUIREMENTS 

The CAPS software base must perform four basic tasks [Ref 20]. Figure 3 depicts 
these tasks. Text file storage is a mechanism to store and retrieve portions of a reusable 
component. Component browsing refers to giving the user the ability to locate and view 
components in a manner other than by PSDL query. The ability to query the software 
base by PSDL specification gives the system the retrieval characteristics desired in this 
prototyping system. Component integration into CAPS is required once a reusable 
component is located so that the execution support system can produce an executable 
prototype. 




Figure 3 - Requirements for CAPS Software Base 
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Due to the complexity of storing variable length source code and querying the 
software base using PSDL specifications, a powerful DBMS system is necessary [Ref 
21]. CAPS is designed to exist in a multi-user networked environment, therefore the 
DBMS system also needs to support multi-user, networked access to its data. 

Section B of this chapter is a description of the DBMS system that was used to 
implement the CAPS software base. Section C describes the segregation of reusable 
components into language domain areas. Section D is a description of the method used 
to store text files in the database. Section E is a description of the implementation of the 
software base browsing facilities. Sections F through H describe the implementation of 
the query by specification function of the software base. Section I discusses the 
requirements for integration of components into CAPS prototypes. Section J describes a 
prototype graphical user interface for the CAPS software base. 

B. ONTOS DATABASE MANAGEMENT SYSTEM 

The Ontos database management system [Ref 22] is one of a growing number of 
Object-Oriented Database Management Systems (OODBMS). It was selected for use in 
the software base project because it has sufficient capabilities to handle the requirements 
for the implementation of an advanced reusable software component library. 

The Ontos OODBMS is not constrained by a particular data model such as 
relational or hierarchical systems, but rather allows the database developer the ability to 
make any data object persist past the execution of the program that created it. 
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Persistence of objects is accomplished by assigning each object a system generated 
unique identifier (UID), and providing methods to store and retrieve each type of object. 

The Ontos system uses C++ [Ref 23] as its implementation and application 
language. The database developer defines the database schema using C++ class 
definitions and the Ontos Classify utility. These classes are then implemented using 
standard C++. 

In Ontos all that is needed to make an instance of a particular class persistent is to 
have that class inherit from the Ontos-defined class Object. The Object class constructor 
assigns each object a UID. The methods necessary for reading and writing instances of a 
persistent class are defined by the Object class, and thus inherited by all instances of 
persistent classes. The reading and writing of persistent objects is transparent to the 
application. 

Ontos includes a set of persistent aggregate classes in order to efficiently handle 
collections of persistent objects. These aggregate classes include List, Set, Array, and 
Dictionary. 

The List class provides functionality analogous to a linked list data structure. The 
Set class implements the standard concept of a set and its associated operations. The 
Array class implements the programing language concept of a dynamically sizable array 
structure. 

The Dictionary class is the most robust of all Ontos aggregate classes. It is a keyed 
data structure that can be ordered or unordered. For every entry in a Dictionary there are 



27 



two attributes stored, the Tag and the Element. The Tag is used for indexed look up and 
the Element holds the desired data. Dictionaries can be defined with or without duplicate 
Tags being allowed. The implementation of these structures is very efficient. 
Dictionaries that are unordered and do not allow duplicates are implemented via hash 
tables. All other Dictionaries are implemented as B-tree's. Figure 4 shows the 
inheritance relationship between the pre-defined Ontos aggregate classes. 




Figure 4 - Ontos Aggregate Inheritance Structure 

Using aggregate classes the designer can define a database architecture that best 
suits the needs of the application rather than modifying the application's structure to fit a 
particular database model. Using the transparent referencing of the database and 
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aggregate data structures, the developer designs the application as though all data is 
immediately available when referenced in a program. 

While this type of DBMS may be difficult to use where general ad-hoc query 
capabilities are desired, it is ideal for the development of software tools where the nature 
of the queries to be issued are known well in advance and the database schema must be 
designed to support them efficiently. 

C. SEGREGATION OF REUSABLE COMPONENT DOMAINS 

The CAPS software base is designed as a general purpose tool capable of storing 
components implemented in many programming languages. Because of differences in 
the capabilities of each programing language there are differences in the way the 
pre-defined abstract data types used in PSDL to specify components are interpreted by 
the software base. An example of this is that the char type in C++ is a subset of the type 
int while in Ada character is a system defined enumerated type. These differences in the 
interpretation of PSDL specifications require that all components of a particular 
implementation language be considered in a unique domain. 

It is also possible to create multiple component domains for a given implementation 
language. This allows segregation of components into major problem areas such as 
information systems and control systems. 

Each domain in the software base is referred to as a library and is an instance of the 
class SBJJBRARY. The class SB_LIBRARY inherits from the Ontos class Object and 
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thus its members are persistent objects. Each instance of SB_LIBRARY is composed of 
five parts: a component dictionary, a keyword library, an operator library, an abstract 
data type library, and a recognized type matrix. 

The component dictionary is used to ensure that duplicate component names are not 
used within a particular library. The keyword library provides the ability to formulate 
and process keyword queries on the domain library. The operator and abstract data type 
libraries are used for the query by PSDL specification and are discussed in more detail in 
sections F.2 and F.3. The recognized type matrix contains the type name matching 
information for this library domain and is discussed in section G. 

The specification and implementation for the class SB_LIBRARY are in Appendix 
B. Figure 5 is an attribute diagram for the class SB_LIBRARY. The symbols used in 
this attribute diagram are the same as those used in Entity / Relationship Diagrams. 
Single ovals represent attributes of an object. Concentric ovals indicate a multi-valued 
attribute (Ontos Dictionary). The attributes shown for multi-valued objects are the 
contents of a single instance contained in that multi-valued object. Underlined attributes 
are the key or tag field of a multi-valued attribute (Ontos Dictionary). 

D. STORAGE OF UNCONSTRAINED TEXT OBJECTS 

In a typical development environment, program source files are stored in the 
operating system’s directory structure as text files. This is an effective method for storing 
source code for a small number ( < 100) of software components. As the number of 
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components increases however, this method becomes unacceptable. This is because the 
burden for maintaining the integrity of the files is placed on the users with little or no 
automated assistance. 




FIGURE 5 - LIBRARY ATTRIBUTE DIAGRAM 



Because of the anticipated size of the CAPS software base the decision was made to 
encapsulate all of the component text inside of the software base itself rather than using 
the operating system's file structure. 

For each component in the CAPS software base there are six text files that must be 
stored. These files are the PSDL specification source code, the implementation language 
specification, and the implementation body, the informal description, the axiomatic 
specifiction, and a normalized version of the axiomatic specification. 

In order to store these text attributes it was necessary to design a persistent class for 
Ontos that would allow storage and retrieval of variable length text strings in an efficient 
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manner. The software base class SB_TEXT_OBJECT was developed to perform this 
function. 

The SB_TEXT_OBJECT class supports the creation of persistent text objects and 
appends to these objects C++ character strings ( char *) or a C++ input stream 
( ifstreamSc ). For output, an instance of the class SB_TEXT_OBJECT can output its text 
via a C++ character string ( char *) or to an output stream ( ofstream & ). 

The class SB_TEXT_OBJECT is a child of the Ontos class Object and thus has all 
of the Ontos persistent methods for storage to and retrieval from the software base. 
Instances of the SB_TEXT_OBJECT class can be used as attributes of each component 
in the software base to store the PSDL and implementation source code. The full 
definition and implementation of the class SB_TEXT_OBJECT is given in Appendix B. 

E. BROWSING THE SOFTWARE BASE 

Although browsing by component name and keyword browsing are not the 
preferred methods for finding reusable components in a large software base, they are a 
necessary feature of any software collection. These types of features are required to 
allow users to familiarize themselves with the components in the software base as well as 
to allow the software base administrators to maintain them. Due to this need the software 
base was designed and implemented to support both keyword queries and named look up. 
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1. Named Look Up Of Components 

PSDL has only two types of software components: abstract data types and 
operators. Each software base domain library has been divided into these disjoint 
categories of components. For browsing purposes the software base provides a complete 
list of either all abstract data types, all operators, or all components in a particular library. 
These lists are in alphabetical order and are used to support for named look up of 
individual components. 

2. Keyword Querying 

Each software base library includes a keyword library for handling keyword 
access to its components. A keyword library is an instance of the class 
SB_KEYWORD_LIBRARY. The class SB_KEYWORD_LIBRARY has been designed 
to allow the keyword attribute of PSDL to form a keyword structured method of 
browsing the software base. 

An instance of SB_KEYWORD_LIBRARY provides a method for listing all 
keywords used in the library. From this list a keyword query can be formulated. 

The result of a keyword query is a list of those components that possess one or 
more of the query keywords. The list is ordered with those components that satisfy the 
most query keywords coming first. Figure 6 graphically represents the keyword query 
process for a query defined by keywords A,B, and C. 

The result of the query shown in Figure 6 will follow the following format: 

1. All components in area 1 will be listed first (since these components contain all 
keywords in the query). 
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2. The next components in the list will be those in areas 2, 3, and 4. 

3. The last components listed will be those in areas 5, 6, and 7. 

4. Those components in area 8 will not be included in the list since they do not 
contain any of the keywords in the query. 




L - Set of all components In library 
A - Set of an components that contain keyword A 
B - Set of aH components that contain keyword B 
C - Set of all components that contain keyword C 



Figure 6 - Venn Diagram of Keyword Query 

The class SB_KEYWORD_LIBRARY is a Dictionary with individual keywords as 
the Dictionary tags. Each tag is associated with a separate Dictionary that contains a list 
of components that contain that particular keyword. Figure 7 is an attribute diagram for 
the class SB_KEYWORD_LIBRARY. 
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Figure 7 - Keyword Library E/R Diagram 



F. QUERY BY SPECIFICATION 

As stated previously, the implementation method that was chosen for the CAPS 
software base is to store components in a database and use PSDL specifications as the 
basis for high recall queries. Each stored component consists of a PSDL specification, an 
implementation specification, the implementation code, and a normalized version of the 
PSDL specification. The syntax and semantics of the PSDL specification will be used to 
direct the search for a component. 

Figures 8 and 9 summarize the steps necessary to store components in the software 
base and to retrieve them using a given query specification. Components to be stored 
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must first pass through syntactic and semantic normalization (see Figure 8). The 
normalization processes transform the component's PSDL specification to facilitate later 
matching [Ref 24]. Syntactic normalization involves primarily format changes and 
statistical calculations while semantic normalization requires specification expansion and 
transformations. 




Figure 8 - Component Storage Mechanism 



Figure 9 shows the general process for component retrieval. A query for a library 
component is formed by constructing the PSDL specification for the desired component. 
The query specification is syntactically and semantically normalized and then matched 
against the stored specifications. 

Syntactic matching of the query component takes place before semantic matching. 
The reason for this is that syntactic matching is faster than semantic matching and will be 
used to partition the software base quickly in order to narrow the list of possible 
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candidates that the semantic matching algorithm must consider. Semantic matching is 
time consuming and must be applied to as small a candidate list as possible. 



QUBW 




Figure 9 - Query By PSDL Specification 



Both syntactic and semantic normalization and matching are required to achieve the 
best performance from the system. The main benefit of syntactic matching is speed 
whereas the advantage of semantic matching is accuracy. Accuracy is required in order to 
reduce the number of reusable components that a designer will have to evaluate before 
making a selection. 

Consider the example of trying to find an abstract data type for a set. The Booch 
component library [Ref 25] contains 34 different variations for implementing a set. The 
specifications for these set packages are quite similar but the implementations are clearly 
different. 
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If we consider generic packages to perform sorting, the Booch library contains 15. 
Nine of the 15 Ada specifications are identical with the exception of the name given to 
the package. Clearly we cannot rely on syntax alone to provide us a sufficiently fine 
grained search. Semantics are also required. 

A semantic process alone would be unacceptable because semantic matching would 
have to be applied to every software base component causing the search process to be 
impractically time consuming. For a more detailed discussion of the semantic matching 
mechanisms used by the software base refer to [Ref 26]. 

The details of the syntactic matching mechanisms employed in the CAPS software 
base are addressed in the following sections of this thesis. 

1. Syntactic Matching 

The purpose of syntactic matching is to rapidly eliminate from consideration 
those modules in the software base that cannot match the query specification's interface. 
This matching process uses the query module’s PSDL interface specification to formulate 
a query. Once those modules with unsuitable interfaces have been removed, only a small 
subset of the software base needs to be semantically analyzed. The syntactic matching 
process reduces the number of candidate modules sufficiently to make semantic matching 
practical. 

Prior to discussing the design of the software base architecture needed to 
support syntactic matching it is necessary to rigorously define what constitutes a 
syntactic match. PSDL allows the definition of both type and operator modules. Since a 
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type module is a superset of an operator module, the definition of an operator module 
match will be given in detail and then extended for use with type modules. 

The attributes of a PSDL specification p for a software component c that are 

important to the syntactic matching process are the following: 

1. S(p)= ( (In(t,n) : there are n>0 occurrences of type t as input parameters to c }, 
(Out(t,m) : there are m>0 occurrences of type t as output parameters from c }, 

(E : E is an exception defined in c},{ 

St : St is a state variable in c} ) 

S(p) is the interface subset of the PSDL specification for module c and is the 
only part of the specification that pertains to the syntactic matching process. 

Given a software base module m, and a query module q, along with their 
respective PSDL interface specifications S(m) and S(q) then m is a syntactic match for q 
if and only if all of the following constraints are met: 

1. 3 fj : S(q) S(m) 9 (In(t,n) q ) = In(f,m), (m=n and (t=f or t' is a generic match 
of t)) and f; is bijective] 

2. 3 f 0 : S(q) S(m) 3 [(f 0 (Out(t,n) q ) = Out(t' ,m) 0 (m=n and (t=f or t' is a generic 
match of t)) and f 0 is injective] 

3. if (| { STq } | > 0 then |{STm}| > 0) else (|{STq}| = |{STm}| =0) 

This definition of a syntactic match could be used directly to determine if a 
software base component could match a query specification's interface but would require 
the system to check every component in the software base. This type of implementation 
would be very inefficient. A better strategy involves using the matching rules to derive a 
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set of module attributes that can be used to rapidly identify and reject modules with 

unsuitable interfaces. Some examples of these derived attributes include: 

1. If the number of input parameters in S(q) is not equal to the number input 
parameters in S(m), then there can be no function f t to satisfy rule 1. Therefore 
S(m) can be eliminated from the search. 

2. If the number of output parameters in S(q) is greater than the number of output 
parameters in S(m), then there can be no function f c to satisfy rule 2. Therefore 
S(m) can be eliminated from the search. 

3. If S(q) has state variables defined (i.e. q defines a state machine) but S(m) has no 
state variables, then S(m) can be eliminated from the search. 

If a component passes these tests, it does not mean that it is a syntactic match, 
a failure however, does eliminate the module from further consideration because it 
cannot be a syntactic match. These attributes are derivable from the PSDL specification 
and can be used to form multi-attribute keys. These keys allow a rapid reduction in the 
size of the viable subset of the software base via multi-attribute queries without the need 
to attempt to identify the individual mapping functions for each module. For those 
modules that are selected by the multi-attribute query additional checks can be made to 
identify components that cannot meet rules 1 and 2. These checks form a filtering 
mechanism that removes any unsuitable components from the query result. 

The rules for the syntactic matching of type modules are similar to those for 
operator modules with the addition of a mapping function to map the operators of S(q) to 
the operators of S(m) and an additional check to ensure the generic parameter 
substitutions used for this mapping function are consistent for all operators in S(m). 
Multi-attribute keys can be formulated that incorporate these additional requirements. 
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These keys can then be used for the initial type module database query and additional 
checks only applied to those modules that are selected by the multi-attribute query. 

Through the use of a complex aggregate hierarchy, the software base can be 
separated into disjoint areas, each queriable via multi-attribute keys. 

2. Operator Component Library 

The class SB_OPERATOR_LIBRARY is structured to allow a multi-attribute 

query to be performed efficiently on the following attributes: 

1. State_Flag 

2. Number_of_Inputs 

3. Number_of_Outputs 

4. Number_of_Generic_Types / Number_of_Unrecognized_Types 

The Number_of_Generic_Types attribute is for software base components and 
Number_of_Unrecognized_Types is the corresponding attribute for query components. 

In order for a software base operator component m to be returned from the 

multi-attribute query for component q it must satisfy the following conditions: 

1. State_Flag(m) = State_Flag(q) 

2. Number_of_Inputs(m) = Number_of_Inputs(q) 

3. Number_of_Outputs(m) >= Number_of_Outputs(q) 

4. Number_of_Generic_Types >= Number_of_Unrecognized_Types(q) 

The fourth requirement is due to the fact that if the software base library does 
not recognize a particular type in the query specification the only way that .type could be 
matched is via a generic type. 
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The result of this query is a set of software base components that are potential 
syntactic matches of the query specification. At this point additional tests (filters) can be 
applied to each remaining component to determine if it should be passed to the semantic 
matching step. Applying these filters is an iterative process that must be carried out on 
one software base component at a time. 

The schema for the class SB_OPERATOR_LIBRARY is shown in figure 10. 

3. Abstract Data Type Library 

The abstract data type library is similar to the operator component library. It is 
an instance of the class SB_ADT_LIBRARY and uses the following attributes for multi 

attribute queries: 

1 . Number_of_A DT s 

2. Total_Number_of_Inputs 

3. Total_Number_of_Outputs 

4. Total_Number_of_Generic_Types / Total_Number_of_Unrecognized_Types 

5. Number_of_Operators 

In order for a software base operator component m to meet an attribute query 

for component q all of the following must be true: 

1. Number_of_ADTs(m) >= Number_of_ADTs(q) 

2. Total_Number_of_Inputs(m) >= Total_Total_Number_of_Inputs(q) 

3. Total_Number_of_Outputs(m) >= Total_Number_of_Outputs(q) 

4. Total_Number_of_Generic_Types(m) >= 
Total_Number_of_Unrecognized_Types(q) 

5. Number_of_Operators(m) >= Number_of_Operators(q) 
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Figure 10 - Operator Library Attribute Diagram 



The rationale behind requirement 5 is the same as for the operator query. 
Again the results of the multi-attribute query is a set of type components that are 
potential maps for the query component. The schema for the class SB_ADT_LIBRARY 
is shown in Figure 11. 

G. DATA STREAM TYPE MATCHING 

One of the critical concepts in the syntactic matching methodology is the 
determination if a library component stream data type is a match of a query component 
stream data type. The criteria for making this decision differs for each implementation 
language because they each have their own set of predefined data types and inheritance 
techniques. 

In order to identify if one stream type can map into another stream type, each 
library contains an instance of the class SB_REC0GN1ZED_TYPES. This class 
contains the names of all of the type identifiers the library recognizes along with a matrix 
for determining whether a given type can map into another type that the system 
recognizes. This matrix represents all of the subtype relationships among the recognized 
types. 

The direction of the mapping is important as illustrated by the following 
example. In Ada the subtype Natural is defined as the range from O..Integer’Max and 
Positive is defined as L.Integer'Max. 
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Figure 11 - ADT Library Attribute Diagram 



A Positive data type in an input stream of a query can map into a Natural in an 
input stream of a stored component since all of the Positive's allowed values are also 
valid Natural values. A Natural however cannot map into a Positive because 0 is not a 
valid Positive number. The situation is reversed for output streams. 

The SB_RECOGNIZED_TYPES class also contains information about how 

some standard programing language concepts will be identified. These include: 

1. Whether or not the language is case sensitive. 

2. How type inheritance will be identified. 

3. The base type name for generic types, values, and procedures. 

4. The base type name for abstract data types. 

5. How array types will be specified (including the index type and element type). 

An example of the type matrix for Ada and its use is presented in Appendix A. 

H. ABSTRACT REPRESENTATION OF SOFTWARE BASE COMPONENTS 

The class SB_COMPONENT is an abstract base class for storing the attributes of 
software base components. It includes attributes that are common to all software 
components. The classes SB_ADT_COMPONENT and SB_OPERATOR inherit from 
SB_COMPONENT and include additional attributes that are specific to each. 

Two classes inherit from SB_OPERATOR. These are 

SB_OPERATOR_COMPONENT and SB_ADT_OPERATOR. These two classes differ 
only in the methods for handling generic and recognized types. 

Figure 12 shows the inheritance hierarchy used in defining the persistent classes for 
software base components. Figure 13 is the schema for the class 



46 



SB_ADT_COMPONENT and Figure 14 is the schema for the class SB_OPERATOR 
respectively. 




Figure 12 - SOFTWARE BASE COMPONENT INHERITANCE 



Each of these schemas contain some derived attributes. These derived attributes are 
stored in the software base to prevent them from being recomputed each time they are 
needed. 

A parser for the specification subset of PSDL was developed using lex [Ref 27] and 
yacc [Ref 28] in order to construct instances of the SB_ADT_COMPONENT and 
SB_OPERATOR_COMPONENT classes. For this parser to take the appropriate 
semantic actions, language preserving transformations of the original PSDL grammar 
were necessary. These transformations consist of the addition of non-terminals and 
productions to allow appropriate semantic actions to be carried out. 
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The source code input to lex and yacc that was used to generate the parser is 
included in Appendix C. 

I. INTEGRATING RETRIEVED COMPONENTS INTO CAPS 

The goal of the software base is to provide to CAPS a component implementation 
that is an exact match for a query specification and meets the needs of the CAPS 
execution support system. To accomplish this, once a reusable software component has 
been located it must be transformed into a form that matches all of these requirements. 
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This transformation involves changing parameter, type, and operator names of the library 
component to match those of the query specification as well as instantiating any generics. 




Figure 14 - Operator Component Attribute Diagram 



Rather than modifying the library component itself, the library unit can be used as a 
basis for the creation of a separate component that meets the needs of the query 
component. This is accomplished via inheritance or using the with statement in Ada. 

The software base cannot directly generate implementation code because it is not 
language specific. It can generate an abstract representation of how the library 
component satisfies the syntax and semantics of a query component. This representation 
can then be used by a translation tool specific to a particular implementation language to 
generate the implementation code. Figure 15 shows the details of the integration process. 
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Figure 15 - integration of Components Into CAPS 



This method of component integration is preferable since additional implementation 
languages can be added to the software base as long as a translation tool to generate the 
final implementation is provided. Appendix D provides a specification for a proposed 
mapping grammar that can be generated by the semantic matching system and used for 
generation of component implementation. Appendix D also gives an example of this 
process to generate an implementation for an abstract integer set using a generic set 
package. 
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J. SOFTWARE BASE INTERFACE 



CAPS itself is a set of individual tools. These tools are linked together with a tool 
interface. One of the CAPS tools is a graphical user interface. The user graphical 
interface gains access to all of the other tools in the system via the tools interface. The 
reason for having all graphical user interface functions in a single tool is to simplify 
future enhancements to the interface. 

Based on this structure, each tool in the CAPS system provides a command line 
interface that is used by the tool interface to invoke the tool. The software base has been 
designed with an interface that meets this requirement. 

1. Command Line Interface 

The software base implementation provides a command line interface. This 
type of interface supports easy integration of the software base functions into the CAPS 
system. The functions provided by the software base command line interface are the 
following: 

1 . Make a new domain library. 

2. Add a new software base component. 

3. Update a software base component. 

4. Delete a software base component 

5. Generate a list of components in a library 

6. Generate a list of operators in a library 

7. Generate a list of types in a library 

8. Generate list of keywords in a library 
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9. Keyword query 

10. Component query 

11. View a component's source files 

12. Output diagnostic information (for testing and maintenance only) 

13. Generate a component’s mapping for a given query 

A function to generate a mapping for a query has not been implemented in the 
current version of the software base. For details on the exact syntax of these commands 
refer to Appendix E. 

2. Graphical User Interface 

In order to demonstrate the capabilities of the software base system and the 
command line interface, a graphical user interface was prototyped for the software base 
system using the Interviews 3.0b [Ref 29] interface builder application and the 
Interviews 3.0b object library. This interface is not intended to be full functioning but 
rather an example of the functionality of the software base system. 

Appendix F is the user's manual for the prototype software base graphical 
interface. Appendix G is the source code for this graphical user interface. 
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V. CONCLUSIONS AND FUTURE RESEARCH 



The software base system described in this thesis has been implemented. It has not 
yet been integrated into CAPS. Due to the complexity of the software base system, there 
are many areas that can be improved by future research. This chapter identifies those 
areas that need improvements and provides recommendations where possible. 

A. ADDING COMPONENTS TO THE SOFTWARE BASE 

Reusable components are currently being selected and tested for possible inclusion 
into the software base. This is a labor intensive activity for several reasons. 

1. Component Testing 

Any component that is added to the software base must be adequately tested to 
ensure that it fully meets its specification. Testing software components continues to be 
a difficult area in software engineering research and further advances in testing are 
necessary to make reusable component libraries more successful. Some relevant research 
in this direction is provided in [Ref 30]. 

2. Component Implementation Restrictions 

The CAPS system restricts the nature of the components used in prototypes. 
The first restriction is that implementations of OPERATORS must be procedures rather 
than functions. The second restriction is that "in out" parameters are not allowed. These 
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restrictions necessitate the modification of most existing components that are candidates 
for reuse. This includes sources such as the Booch library, the Ada software repository, 
the RAPID project, the CAMPS project etc. One method of overcoming this difficulty is 
automate the modification process using a translation tool. 

3. Writing Formal Specifications Of Existing Components 

CAPS and the software base system require that reusable components be 
specified in two additional specification languages. These are PSDL and the OBJ3 used 
for semantic matching. Writing these specifications is a time consuming process that 
could be partially automated by using the implementation language's specification to 
generate skeletons of PSDL and OBJ3 interface specifications. 

B. DELETING AND UPDATING COMPONENTS 

Updating or deleting components from the software base could cause system 
inconsistencies. These inconsistencies take two forms. The first involves other software 
base components that may depend on the deleted or updated component. The second is 
that previously generated prototypes may depend on the component that has been deleted 
or modified. The current implementation of the software base relies on the software base 
administrator to ensure that these conditions do not arise. This process should be 
automated to ensure that the inconsistencies do not occur. 
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To correct the first problem it is necessary to add dependency relationships between 
software base components and the software base. This would allow the software base to 
ensure that all updates and deletions do not create inconsistencies. 

To correct the second problem it is necessary to save the source code for all deleted 
or updated components external to the software base. This could be accomplished 
through the use of a version control system such as SCCS. 

C. EFFICIENCY 

The most time consuming portion of a software base query is semantic matching. 
The easiest way to improve overall query performance is to reduce the number of 
components that must be analyzed by the semantic matching system. 

As more components are added to the software base, experience will be gained on 
the performance of the syntactic matching system. This experience will make it possible 
to identify additional attributes for the multi-attribute queries and to add more detail to 
the post-query filtering routines. These additions will reduce the number of candidates 
passed to the semantic matching system and thus increase overall query performance. 

D. SOFTWARE BASE SYSTEM IMPLEMENTATION LANGUAGE 

The long term goal for CAPS is that it be entirely implemented in Ada. A major 
portion of the software base system is currently implemented in C++. C++ was used 
because there does not exist a tool with the capabilities of Ontos that interfaces directly to 
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Ada. As more robust database tools become available for Ada, it will be possible to 
re-implement the software base tool fully in Ada. A DBMS of this type is currently 
being developed which could be used for future versions of the software base [Ref 31]. 
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APPENDIX A - USING PSDL TO SPECIFY 
REUSABLE COMPONENTS 



The ability to accurately specify reusable components with PSDL is critical to the 
success of the software base. Due to the general nature of the PSDL interface 
specification its use for specifying specific programming languages must be refined. The 
software base is designed to recognize the enumeration of PSDL for any language in the 
following areas. 

A. STRUCTURE OF EXTENSIONS TO PSDL INTERFACE SEMANTICS 

1. Generic Parameters 

In languages that support the concept of generic units, such as Ada, or in 
macro expansion facilities, there are three categories of generic parameters. These are 
generic types, generic values, or generic program units. 

The generic specification structure in PSDL must be extended to identify a 
particular generic parameter as either a type, value, or program unit. This is 
accomplished in the software base by defining of three identifiers that have special 
significance in the generic structure. 

2. Abstract Data Types 

There are cases where in the definition of one abstract data type it is necessary 
to define others as well. Programing languages such as Ada allow an individual package 
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to define an unlimited number of abstract data types. PSDL TYPE'S can specify multiple 
abstract data type structures through the definition of an identifier that has a special 
meaning in the type declaration structure of a PSDL TYPE. 

3. Type Inheritance 

Most modem programming languages support user defined types. In many 
cases user defined types actually inherit from a predefined language type and the new 
type retains compatibility with its parent. An example of this is the subtype construct in 
Ada. 

The software base needs to be able to identify when a user defined type is 
compatible with a predefined type or another user defined type. One way of achieving 
this is to allow the ability to specify from what base type a user defined type inherits. 
This inheritance identification is achieved in the software base through the definition of 
an identifier that has special meaning in the type name construct of PSDL. 

4. The Array Abstract Data Type 

The concept of an array of data is present in almost all programing languages. 
Because of this, the decision was made to add the definition of special identifiers in 
PSDL to allow the software base to decide when two array types are compatible. The 
identifiers are used to identify the type of the index of the array as well as the type of the 
element of the array. 
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B. EXAMPLE DEFINITIONS FOR ADA 



For a particular language library the definitions of the special identifiers are 
contained in the rule file used when the library is created. The rule file defined for Ada 
follows this description of a rule file's contents. The first field in the rule file indicates if 
the language being defined is case sensitive (1) or not (0). 

The next six rules define the special identifiers for the following concepts. 

1. Type that must be matched genetically 

2. Inheritance 

3. Generic type 

4. Generic program unit 

5. Generic value 

6. Abstract data type 

7. Array 

8. Array index 

9. Array element 

These identifiers must all be defined and in this order. 

Following these identifiers is a list of type names that the designer wants the 
software base library to recognize in this library. The list is terminated with a 

Following the ~ is a matrix of boolean (0 or 1) values concerning type 
compatibility. This matrix is constructed by listing all identifiers above the ~ to identify 
the rows and columns of the matrix. A value of 1 at (row x, column y) indicates that 
type x can map into the type y. 



62 



C. ADA RULE FILE 



0 

UNRECOGNIZED 

BASE_TYPE 

GENERIC.TYPE 

GENERIC.PROCEDURE 

GENERIC. V ALUE 

ADT 

ARRAY 

ARRAYJNDEX 

ARRAY.ELEMENT 

DISCRETE 

RANGE 

DIGIT 

DELTA 

PRIVATE 

ENUMERATION 

INTEGER 

NATURAL 

POSITIVE 

BOOLEAN 

FLOAT 

FIXED 

CHARACTER 

STRING 

ACCESS 

00000000000 
00000000000 
00000000000 
00000000000 
00000000000 
00000000000 
00000010000 
00000000000 
00000000000 
00000000000 
00000000000 
00000000000 
00000000000 
00000000000 
0000000001 1 
0000000001 1 
0000000001 1 
0000000001 1 
00000000010 
00000000000 
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1 
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D. EXAMPLE PSDL SPECIFICATIONS USING ADA RULES. 



1. Bubble Sort Operator 

E. PSDL 



operator bubble_sort 
specification 
generic 

array_iype : GENERIC_TYPE[ 

BASE_TYPE : ARRAY [ 

ELEMENT : PRIVATE, INDEX : DISCRETE]], 
less_than : GENERIC.PROCEDURE 

input 

the_array : array _type 

output 

the_array : array_type 
keywords array, sort, bubble 
description { Booch library bubble sort } 
end 

F. ADA SPECIFICATION 



- (C) Copyright 1986, 1987, 1988, 1989, 1990 Grady Booch 

- All Rights Reserved 

- Serial Number 0100219 

"Restricted Rights Legend" 

- Use, duplication, or disclosure is subject to 

- restrictions as set forth in subdivision (b) (3) (ii) 

- of the rights in Technical Data and Computer 

- Software Clause of FAR 52.227-7013. Manufacturer: 

- Wizard software, 2171 S. Parfet Court, Lakewood, 

- Colorado 80227 (1-303-987-1874) 
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generic 

type Item is private; 
type Index is (<>); 

type Items is array(Index range <>) of Item; 
with function "<" (Left : in Item; 

Right : in Item) return Boolean; 
package Bubble_Sort is 

procedure Sort (The_Items : in out Items); 

end Bubble_Sort; 
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1. Set Abstract Data Type 



G. PSDL SPECIFICATION FOR SB SET PKG 



type sb_set_pkg 
specification 
generic 

t : GENERIC_TYPE, 
block.size : GENERIC_VALUE, 
eq : GENERIC.PROCEDURE 

set : ADT 



operator empty 
specification 

output 



end 



s : set 



operator add 
specification 
input 



x : t, 
si : set 



end 



output 

so : set 



operator remove 
specification 
input 

x : t, 
si : set 



end 



output 

so : set 



operator member 
specification 
input 

x : t, 
s : set 



end 



output 

v : boolean 



operator union 
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specification 

input 

output 



end 



sl,s2 : set 
s3 : set 



operator difference 
specification 
input 

sl,s2 : set 

output 

s3 : set 



end 



operator intersection 
specification 
input 

sl,s2 : set 



end 



output 

s3 : set 



operator size 
specification 
input 

output 



end 



s : set 
v : natural 



operator equal 
specification 
input 

output 



end 



sl,s2 : set 
v : boolean 



operator subset 
specification 
input 

output 



end 



sl,s2 : set 
v : boolean 



keywords SET 

description ( SET ADT WITH OPERATIONS FOR EMPTY, ADD, SUBSET, EQUAL ) 
end 
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H. ADA SPECIFICATION FOR SBSETPKG 



with text_io; use text_io; 
generic 

type t is private; 
block_size: in natural:=128; 
with procudure eq(x,y: in t, v : BOOLEAN); 
package sb_set_pkg is 

type set is private; 

type index_array is array(natural range <>) of natural; 

procedure empty(s: out set); 
procedure add(x: in t; si: in set, so : out set); 
procedure remove(x: in t; s: in out set); 
procedure member(x: in t; s: in set, v : boolean); 
procedure union(sl, s2: in set; s3: out set); 
procedure difference^ 1, s2: in set; s3: out set); 
procedure intersection^ 1, s2: in set; s3: out set); 
procedure size(s: in set, v : out natural); 
procedure equal(sl, s2: in set, v : out boolean); 
procedure subset(sl, s2: in set, v : out boolean); 

private 

type link is access set; 

type elements_type is array(l..bIock_size) of t; 

type set is 

record 

size: natural:=0; -The size of the set 
elements: elements_type; -The actual elements of the set 
next: link:=null; —The next node in the list 
end record; 

-Elements(l..min(size,block_size)) contains data 
end sb_set_pkg; 
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APPENDIX B - C++ SOURCE CODE FOR 
SOFTWARE BASE 



The source code for the software base included in this Appendix was formatted 
using the c++21atex code formatting system written by Norbert Kiesel. His program was 
modified to have it generate output that conforms to the requirements of the Naval 
Postgraduate School thesis format. 
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// 

// 

// 

// 

// 

// 

// 



CAPS REUSABLE COMPONENT RETRIEVAL SYSTEM CLASS DEFINITIONS 
J. K. MCDOWELL 23 AUG 91 



#include <streaiu. hxx> 
#include <strstream.hxx> 
extern "C — " 

{ 

#include <string.h> 
#include <stdio.h> 
#include <stdlib.h> 
#include <ctype.h> 

} 

a 

// 

// 



# include <Dictionary . h> 

# include <Array.h> 

# include <List .h> 

# include <TRef .h> 

# include <Type . h> 

# include <Database .h> 

# include <Directory . h> 

# include <GlobalEntities . h> 



,, 

// PRE-DECLARE ALL CLASSES TO AVOID PROBLEMS WITH DECLARATION ORDER 
u 

class SB.L1BRARY; / / M.cx r 

class SB-ADT.C0MP0NENT_L1BRARY; //sbacl.cxx 

class SB.OPERATOR.COMPONENTXIBRARY; //sbocl.cxx 

class SB.KEYWORD.L1BRARY; //sbkwl.cxx 

class SB.COiMPONENT; / / sbc.cxx 

class SB-COMPONENT J3ICT10N ARY; //sbcd.cxx 

class SB JvE YWORD.DICTION A RY; //sbkwd.cxx 

class SB.TEXT.OBJECT; //sblo.cxx 

class SB_ADT-COMPONENT: //sbac.cxx 

class SB.OPERATOR; / /sbo.cxx 

class SB-OPERATOR-COMPONENT; //sboc.cxx 

class SB-ADT-OPERATOR; / /sbao.cxx 

class SB JD.DECL.DICTIONARY; //sbidd.cxx 

class SBJD.DECL; //sbid.cxx 

class SB.TYPE.USAGE; //sblu.cxx 

class SB.TYPE.USAG E-DICTION ARY; //sblud.cxx 
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class SB-TYPE.NAME; //sbtn.cxr 
class SB.ADT-OPERATOR.DICTIONARY; / / sbaod.cxx 
class SBJ:XCEPT10N_D1CTI0NARY; //sbed.cxx 
class SB-RECOGNIZED-TYPES; //sbrt.cxr 

// 

// SO FT BASE N A HIEING CONVENTIONS 

// 

//A. all sofibase class names stari with ”SB.” this eliminates any 
// potential name space conflicts with any other software. 

II B. all TRef instances start with ”theJ ’ and there dereferencing 
II functions use the rest of the name. fie. TRef *thejname. 

1 1 SB . * namef) ) 

n 

n 

// to eliminate confusion between PSDL types and stream types 
II PSDL types are refered to as abstract data types (ADT) and 
II stream types are refered to as simply types 
n 
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class SELLIBRARY : public Object 

{ . 

private: 

TRef * the-adt- component Jibrary; 

Dictionary Iterator adt-iterator(); 

SB_ADT_COMPONENT_LIBRARY *adt. component Jibrary (); 

TRef *the_operator_component Jibrary; 

Diet ionary Iterator operator JteratorQ; 

SB_OPERATOR_COMPONENT -LIBRARY *operator-component Jibrary(); 

TRef *the_component .dictionary; 

Dictionary Iterator component _it era tor(); 

SB.COM PON ENT.DICTIO NARY * component-dictionary (); 



TRef *t lie-keyword Jibrary; 
SBJ\EY\YORD_LIBRARY *keyword.library( ); 



TRef *t lie-recognized -types; 

SB-COMPONENT J3I0T1ON ARY *query( SB. COMPONENT *); 
public: 

// w el hods for on 1 os 
SB JJBRARY (APL *); 

virtual void Destroy (Boolean aborted=FALSE); 
virtual void deleteObject( Boolean deallocate^ FALSE); 
virtual void putOb ject(Boolean deallocate=FALSE); 

Type *getDirectType( ): 

// 

SB_LIBRARY(char * name, cliar stable); 
void component Jist(ofstreamfc outstream); 
void keyword Jist.(ofstreamic outstream); 
void typeJist(ofstreaniA; outstream); 
void operator-list .(ofstreamic outstream); 

void query(SB_COMPONENT * query -component, ofstreamfc outstream); 
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void key\vord.query(ifstreamA; instream, ofstreamfc outstream); 
Boolean add( SB.COM PONENT *); 

SB.COMPONENT *query(char ^component jiame); 
void update_recognized_types(char *file); 

SB JIECOGNIZED.TYPES * recognized. types(); 

void delete_component(SB.COMPOKENT *the_component); 



}; 
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class SB^\DT_COMPOi\ENT_LIBRARY . public Object 

{ . 

private: 

TRef *the_adt .component. .dictionary; 

SB.COMPONENT J3ICTI0NARY *adt_component_dictionary(); 

TRef *the_main_library; 

Dictionary *main_library(); 

public: 

// methods for onlos 

SB-ADT.COM PON ENT_LIBRARY(APL *); 
virtual void Destroy (Boolean aborted^FALSE); 
virtual void deleteOb ject( Boolean deallocate=FALSE); 
virtual void putObject (Boolean deallocate^ FALSE); 

Type *getDirectType(); 

ii 

SB_ADT.COM PONENT_LIBRARY(); 

Boolean add(SB_ADT.COMPONENT* ): 

SB.COMPONENT.DICTIONARY *query(SBJ^DT .COMPONENT *query xomponent) 
void list(ofstreanii5c outstream); 

Dictionarylterator iteratort ( ) ; 

void delete.component (SB _ADT.COM PONENT * the .component); 

}; 
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class SB_C0MP0NENT_DICT10NARY : public Dictionary 

{ 

public: 

// onios methods 

SB_COMPONENT_DICTIONARY(APL *); 
virtual void Destroy (Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 
Type *get,DirectType(); 

// 

SB-COMPONENT .DICTION ARV(); 

Boolean add(SB_COMPONENT *); 

SB_COMPONENT *query(char *name); 
void print On(ofstream«!c outstream); 

Dictionarylterator iterator(); 

}; 
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class SB-OPERATOR-COMPONENT -LIBRARY : public Object 

{ 

private. 

TRef *the_operator .component-dictionary; 

SB-COMPONENT-DICTIONARY *operator_component_dictionary(); 

TRef *the_state_dictionary; 

Dictionary *state_dictionary(); 

TRef *the_non.state_dict ionary; 

Dictionary *noiustate_dict ionarv (); 

public: 

// out os methods 

SB-OPERATOR.COMPONENT_LIBRARY(APL *); 
virtual void Destroy (Boolean aborted = FALSE); 
virtual void deleteObject( Boolean deallocate=FALSE); 
virtual void putObject( Boolean deallocate=FALSE); 

Type *getDirectType(); 

// 

SB.OPERATOR.COMPONENTXIBRARY0; 

Boolean add(SB-OPERATOR-COMPONENT * new .component); 

SB-COMPONENT JDICTION ARY *query( 

SB-OPERATOR-COMPONENT *query-component) 

void list(ofstream&: outstream); 

Dictionarylterator iterator(): 

void delete.component (SB_OPERATOR-COMPONENT *the.component); 

}; 
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class SB _KEY\YORD_LlBRARY : public Dictionary 

{ 

public: 

/ / ontos methods 

SBJvEYWORDXIBRARY(APL *); 
virtual void Destroy (Boolean abort,ed=FALSE); 
virtual void deleteObject( Boolean deallocate= FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 

// 

SB.KEYWORD.LIBRARV(); 

void query (ifst ream A instream, ofstreamA outstream); 
Boolean add_component (SB-COMPONENT *ne\v_component); 
void deletexomponent (SB-COMPONENT *t.he_component); 
Dictionarylterator iterator(); 
void list(ofstreamA outstream); 

}; 



class SB-COMPONENT : public Object 

{ 

private: 

char *the_component.name; 

TRef *the_key word-dictionary; 

TRef *the_psdLtext; 

TRef * the J m p-spec -text; 

TRef *theimp_body.text; 

TRef *the jnformaLdescription; 

TRef * the .formal-description; 

TRef *thejiorm_formaLdescription; 
TRef *the_recognized .type. usage; 

TRef *the_unrecognized_type_usage; 

TRef *t lie-generic .usage: 



protected: 



S B _C O M P O N E N T ( A P L *theAPL); 
public: 

virtual Type *getDirectType()=0; 
virtual void Destroy (Boolean aborted = FALSE); 
virtual void deleteObject( Boolean deallocate=FALSE); 
virtual void put Object( Boolean deallocate—FALSE); 

// 

SB.COM PONENT(cliar *id); 

virtual void printOnfofstreamfc outstream)=0; 

Boolean add .keyword (cliar * key word); 
char *component_name(); 

SB.TEXT.OBJECT *psdLtext(); 

S B _T EXT .0 B J ECT * i m p.spec _t ex t ( ) ; 
SB.TEXT.OBJECT *imp.body_text(); 
SB.TEXT.OBJECT *informaLdescription(); 
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SB_TEXT_OBJECT *forniaLdescription(); 

SB.TEXT.OBJ ECT *norm JormaLdescriptionQ; 

SB.TYPEJJSAGE.DICTIONARY *generic.usage(); 

void addJext(ifstream«k: psdl, ifst.ream& spec, ifstreamfc body); 

void insert_generics(SB_TYPE_USAGE_DICTlONARY * new .generic jusage); 

SB.TYPE.US AG E-DICTION ARY *recognizedJtypejusage(); 

SB.TYPE.USAGE.DICTIONARY *unrecognized_type_usage(); 

SB_KEY\YORD_DICTIONARY *keyword_dictionary(); 

int num_unrecognized_types( ): 

virtual int num_generic-types()=0; 

int total_types(): 



}; 
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class SB_ADT.COM PON ENT : public SB.COMPONENT 

{ . 

private: 

TRef *the_adt.usage; 

TRef *the.operatorjspecs; 

SB_ADT_OPERATOR -DICTION ARY operator j>pecs(); 
public: 

// ontos meihods 

SB.ADT-COMPONENT (APL *); 
virtual void Destroy (Boolean aborted=FALSE); 
virtual void deleteObject( Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 

Type *getDirectType( ); 

// 

SB_.VDT.COM PON EXT (cliar *id); 

void insert _adt_usage(SB.TYPE.USAGE_DICTIONARY * new ^adt. usage); 

void insert .opera tors( SB _ADT .OPERATOR -DICTION ARY *new_operators) 

int num_adts(); 

in t num_adt_operators( ); 

int total _inputs( ): 

int total_oiitputs(); 

virtual int num_generic_types(); 

Boolean filter(SB-ADT_COMPONENT ^library .component); 
Dictionarylterator adt_iterator(); 

Dictionarylterator adt.operator Jterator( ); 
void printOn(ofstreamir out stream); 
virtual Boolean process_type_info(); 

SB.TYPE.USAGE.DICTIONARY *adt_usage(); 
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}; 
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class SB.OPERATOR : public SB-COMPONENT 

{ 

private: 

TRef *theinput .attributes; 

TRef *the_output .attributes; 

TRef *t he.exceptions; 

Boolean statesJlag; 
protected: 

// out os m el hods 

SB_OPERATOR(APL * theAPL); 

virtual void Destroy( Boolean aborted=FALSE); 

virtual void deleteObject (Boolean deallocate=FALSE); 

virtual void putObjectf Boolean deallocate=FALSE); 

virtual Type *get DirectType( )=0; 

// 

SB JD.DECL. DICTION A RY *input_attributes(); 
SBJD-DECL.DICTIONARY *output.attributes(); 
SB_EXCEPTION .DICTION ARY *exceptions(); 
SB_OPERATOR(char *id); 
public: 

Boolean add-inputs(SB JD.DECL.DICTIONARY *); 

Boolean add.outputs(SB JD.DECL.DICTIONARY *); 

Boolean add_exceptions(SB EXCEPTION DICTIONARY *); 

int num_inputs(); 

iut num_outputs(); 

virtual int nuin_generic_types( ): 

Dictionarylterator input Jterator( ): 
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Dictionarylterator out put _it erator( ) ; 
Dictionarylterator exception Jterator(); 
Boolean states(); 
void set_states(); 

virtual void print On(ofstream<Sc ); 



class SB-ADT.OPERATOR : public SB.OPERATOR 

{ 

public: 

// out os methods 

SB_ADT_OPERATOR(APL * theAPL); 
virtual void Destroy (Boolean aborted=FALSE); 
virtual void deleteObject.(Boolean deallocate=:FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 
virtual Type *getDirectType( ); 

// 

Boolean process .type jiifo(SB_A DT.COM POX ENT *adt ); 

SB-ADT.OPEB ATOB(cliar *): 

}; 
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class SB-OPERATORXOMPONENT : public SB.OPERATOR 

{ 

public: 

// ontos methods 

SB_OPERATOR.COM PONENT(APL * theAPL); 
virtual void Destroy (Boolean aborted=FALSE); 
virtual void deleteObject( Boolean deallocate=FALSE); 
virtual void put Object (Boolean deallocate= FALSE); 
virtual Type *getDirectType(); 

// 

SB_OPERATOR-COIMPONENT(char *); 

Boolean process-type Jufo(); 

Boolean filtei(SB.OPERATOR-COMPONENT *library.unit); 

}; 
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class SB.TEXT.OBJECT : public Object 

{ 

private: 

char * the .text; 
public: 

// ontos methods 
SB_TEXT_OBJECT(APL *); 

Type *getDirect.Type(); 

virtual void Destroy (Boolean aborted=FALSE); 
virtual void deleteObject( Boolean deallocate=FALSE); 
virtual void putOb ject(Boolean deallocate=FALSE); 

// 

SB.TEXT.OB.JECT(); 
void append(ifstreamA' ); 
void append(char *); 
void text(ofstreamA' ): 
char *text(): 

}; 
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class SB_KEYWORD-DICTIONARY : public Dictionary 

{ 

public: 

// tos methods 

SB.KEYWORD_DICTIONARY(APL *); 
virtual void Destroy (Boolean abortecl^FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 
Type *getDirectType(); 

// 

SBJ\EYWORD.DICTIONARY(); 

Boolean add(char *); 

Dictionary Iterator iterator( ); 
void printOn(ofstream& ); 

}; 
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class SB_ADT_OPERATOR_DICTIONARY : public Dictionary 

{ 

public: 

/ / ovios methods 

SB_ADT_OPERATOR -DICTION A RY(APL* ); 
virtual void Destroy (Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 

Type* getDirectType(); 

// 

SB_A DT-OPERATOR .DICTION ARY(); 

void add(SB-A DT-OPERATOR *); 

void append(SB^\DT .OPERATOR -DICTIONARY *): 

int num(); 

int total Jnputs(); 

int t.otal-OUtputs( ): 

Dictionarylterator iterator( ); 
void printOn(ofstreamic ); 

}; 
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class SB.EXCEPTION -DICTIONARY : public Dictionary 

{ 

public: 

// ontos m el hods 

SB_EXCEPTION-DICTIONARY(APL * ); 
virtual void Destroy (Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocat,e=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 
Type *getDirect.Type(); 

// 

SB_EXCEPTION_DICTIONARY(); 

Boolean add(cliar *); 

Boolean append(SB_EXCEPTlON -DICTIONARY * ); 
Dictionarylterator iterator(); 
void printOn(ofstreanuC ); 

}; 
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class SB JD_DECL_DICTIONARY public Object 

{ 

private: 

TRef * the_dict ionary _bv Type; 

TRef *the_dictionarv_byJd; 

TRef *the_id-declaration -list; 

Dictionary *dict ionary _by-type(); 

Dictionary *dictionary_byJd( ); 

List *kLdeclarationJist(); 

public: 

// ontos methods 

SBJDJDECL.DICTIONARY(APL *); 
virtual void Destroy( Boolean aborted = FALSE); 
virtual void deleteObject( Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 

Type *getDirectType( ); 

// 

SB JD JDECL.DICTION ARY( ); 

Boolean add_decl(char *id,SB_TYPE_NAME *type_name); 
Boolean add.decl(SB JDJDECL *decl); 
void remove-decl(SB_ID_DECL *decl); 

Boolean append(SB JD J)ECT JDICTIONARY *); 
int num(); 

SBJDJDECL *query _id(char *querv jiame); 
Dictionarylterator id Jterator( ); 

Dictionarvlterator type Jterator( ); 

Listlterator order _iterator(); 
void print On(ofst ream A: ); 

}; 
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class SBJD.DECL : public Object 

{ 

private: 

char * the id; 

TRef *the_type_name; 

public: 

/ / onlos methods 
SB JD_DECL(APL *); 

virtual void Destroy (Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void put Object (Boolean deallocate^ FALSE); 
Type* getDirectType(); 

// 

SBJD.DECL(cliai- *, S B.TYPE.N A M E * ): 
SB_TYPE_NAME *type_name(); 
cliar *id(); 

void |) r in 1 0 n ( ofstr ea m Y ); 

}; 
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class SB-TYPE-NAME : public Object 

{ 

private: 

char *the_id; 

char * the .base >type id; 

int the-type-code; 
int the.base -type -code; 

TRef *theJd_decLdictionary; 

SB JD-DECL-DICTIONARY *id-decl_dictionary(); 

public: 

// ontos methods 
SB_TYPE_NAME(APL * ); 

virtual void Destroy (Boolean aborted^FALSE); 
virtual void deleteObject( Boolean deallocat,e=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 
Type* getDirectType(); 

// 

SB.TYPE_NAME(char *,SB JD_DECL.DICT10NARY *) 
virtual Boolean operator == (Entityfc ); 
virtual Boolean operator > ( Entity fc ); 

Listlterator decl_iterator(); 

char *id(); 

char *base_type_id(); 

int type-Code(); 

int base_type_code( ); 

Boolean recognized( ); 
int num_decl(); 

void printOn(ofstreani<Sc outstream); 



93 



}; 
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class SB.TYPE.USAGE : public Object 

{ 

private: 

char *the_typejd; 

TRef *the_type_name; 
int the.times.used; 

public: 

// out os m el hods 

SB_TYPE_USAGE(APL *theAPL); 
virtual void Destroy( Boolean aborted=FALSE); 
virtual void deleteObject( Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 

// 

SB_TYPE_USAGE(char *ne\v Jvpe_id,SB_TYPEJ\ T AME *new_type_name) 
char *typeJd(); 
void used(): 
int times_used( ): 

Type *getDirect.Type(); 

void print.On(ofstream&: outstream); 

SB.TYPE.NAME *type_name(); 
char *base_type_id( ); 

}; 
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class SB_TYPE_USAG EJECTION ARY : public Object 

{ 

private: 



TRef *the.dict ionary .by .typeid; 

TRef *the_dictionary.by_times_used; 

T Re f * t he _d i c t i o n a r y _b y _b ase _t y p e ; 

Dictionary *dictionary_by.times_used(); 

Dictionary *dict ionary _bv_typeJd(); 

Dictionary *dictionary.by_base_type(); 

public: 

/ / ontos melhods 

SB_TYPE_USAGE_DICTIONARY( APL *); 
virtual void Destroy( Boolean aborted=FALSE); 
virtual void de]eteObject(Boolean deallocate=FALSE); 
virtual void putObject( Boolean deallocate^ FALSE); 

Type *get Direct Tvpe(); 

// 

SB.T YPE.US AG E-DICTION A RY(); 

Boolean add_type(char *type_id,SB.TYPE_NAME *type_name); 

Boolean add .type(SB_TYPE_USAGE ♦type.usage); 

Boolean update(SB.TYPE_NAME *type Jiame); 

Boolean append( SB-TYPE .USAGE .DICTIONARY *); 

void remove_usage(SB_TYPE_USAGE *the.usage); 
int num(); 

Dictionarylterator typeJd Jterator(); 

Dictionarylterator times.used_iterator( ); 

Dictionarylterator base_typeJterator( ); 
void print On(ofstream«Sc ); 



}; 
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class SB_RECOGNIZED_TYPES : public Object 

{ 



// this object uses a data file which follows the following format 
/ / for its input 

/* 

case.sensitivity (0 for no, 1 for yes ) 

unrecognized.id (ic UNRECOGNIZED for Ada. This id is 

automatically asigned to all unrecognized id’s) 
inheritance.id (ie base.type used for Ada) 

generic Jype.id (it genericJype used for Ada) 

genenc.subprogram.id (ie generic-procedure used for Ada) 
abstract .d at a .type -id (ie adt used for Ada) 
array. id (ie array used for Ada) 

array .index, id (ie index used for Ada) 

array.elemenl.id (ie element used for Ada) 

{recognized.1ype.id}* (all other type.id’s known to this language 

ie INTEGER , POSITIVE etc. used in Ada) 
~~ (used to separate the IDs from the rule map) 

rule matrix where 0 indicates no mapping 1 indicates yes 

each id entered above the makes up the rows and columns of 
the matrix 



+/ 

private: 

TRef *the_naiiie_dictionary; 

Dictionary *name_dictionary( ); 

TRef *the_row .array; 

Array *row_arrav(); 

int array .size; 

Boolean casejsensitive; 

char *con vert _to_upper( char *tvpeJd); 

public: 

// ontos methods 

SB JlECOGNIZED_TYPES(APL *theAPL); 

Type *get.DirectType(): 

virtual void Destroy ( Boolean aborted = FALSE); 
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virtual void deleteObject(Boolean deallocate=:FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 



// 

SB-RECOGNIZED.TVPES(char *file); 



int type jnimber( cliar *type_id); 
Boolean map(int mapJn.int map.out); 



// 

// this file contains all of the external reterences to the 
!/ ontos type schemas 
// 



extern Type *SB.LIBRARY.OType; 

extern Type *SB_ADT-COMPONENT-LIBRARY_OType; 

extern Type *SB-OPERATOR_COMPONENT_LIBRARY-OType; 

extern Type *SB-COMPONENT.OType; 

extern Type *SB-COMPONENT_DICTIONARY_OType; 

extern Type *SB_KEY\VORD-D]CTIONARY-OType; 

extern Type *SB-TEXT.OBJECT-OType; 

extern Type *SB-ADT_COMPONENT-OType: 

extern Type *SB.OPERATOR-COMPONENT.OType; 

extern Type *SB_ADT-OPERATOR-OType; 

extern Type *SB-ID-DECL-DICTIONARY.OType; 

extern Type *SBJD-DECL-OType; 

extern Type *SB_TYPE-NAME_OType; 

extern Type *SB-ADT_OPERATOR-DICTIONARY-OType; 

extern Type *SB.EXCEPTION.DICTIONARY_OType; 

extern Type *SB.TYPE-USAGE.OType; 

extern Type *SB_TYPE_USAGE_DICTIONARY_OType; 

extern Type *SB_RECOGNIZED.TYPES-OType; 

extern SB.LIBRARY +SB.MAIN-LIBRARY; 



# define DEFAULT.NAME.SIZE 21 

#def ine SB.UNRECOGNIZED.TYPE 1 

#def ine SB.BASE.TYPE 2 

#def ine SB-GENERIC-TYPE 3 

#def ine SB_GEN ERIC-SUBPROG RAM 4 

#def ine SB-GENERIC- VALUE 5 

#def ine SB-ABSTRACT.DATA-TYPE 6 

#def ine SB -ARRAY 7 

#define SB_ARR AY-INDEX 8 

#def ine SB-ARRAY.ELEMENT 9 
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#include ” shall. hxx" 

// 

// Ihese defines are to declare the command line 
// arguments 

// 

extern "C — " 

{ _ 

int system(cliar *); 

} 



#define KWL "kwl" // capssoftbase kwl language out-file 
#define KWL.N 1 // keyword list 

#define KWQ "kwq" // capssoftbase kwq language in.file out-file 
#define K\YQ_N 2 // keyword query (2) 

#define OL "ol" // capssof those ol language out -file 
#define OL_N 3 // operator list (3) 

#define TL "tl" // capssoftbase tl language out-file 
#define TL.N 4 // type list (.{) 

#define CQ "cq" // capssoftbase cq language psdl.file out-file 
#define CQJV 5 // component query (5) 

#define CA "ca" // capssoftbase ca language 

II psdl.file spec-in body-in 

#define CA_N 6 // component add (6) 

#define CU "cu" // capssoftbase cu language 

II psdLfile spec-in body-in 

#define CU.N 7 // component update (7) 

#define CD "cd" // capssoftbase cd language component -name 
#define CD_N 8 // component delete (8) 

#define CL "cl" // capssoftbase cl language out-fil 
#define CL_N 9 // component list (9) 

#define CGM "cgm" // capssoftbase eg language 
II psdl component map-out 

#define CGM.N 10 // component generate map (10) 

#define ML "ml" // capssoftbase ml language generator table 
#define ML_N 11 // make new library 

#define CV "cv" // capssoftbase cv language 
II component-name psdl 
II adaspec ada-body 
#define CV.N 12 // component new 

#define DL "dl" // capssoftbase dl language 
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#define DL_N 13 // delete language library 

#define CDIAG "cdiag" // caps.softbase cdiag language 
// component. name outfile 

#define CDIAG-N 14 // print component diagnostics 



#define LOGICAL_DB_NAME "caps.sof tbase.LogDB" 

#def ine LIBRARY-PREFIX "SB." 

#def ine LIBRARY-SUFFIX "-LIBRARY 1 ’ 

#def ine TEMP-ENVIRONMENT "TEMP" 

#def ine DEFAULT-TEMP "./" 

#define NORMALIZE "caps_sof tbase.normalize " 

#if def __ TURBOC— 
int line_number; 

FILE *yyin; 

#else 

extern M C — " 

{ 

extern int line-number; // used to report the line number of an error 
extern FILE *yvin; // ler input stream 

} 

#endif 

Type *SB_LIBRARY.OType; 

Type *SB-ADT-COMPONENT_LIBRARY-OType; 

Type *SB_OPERATOR-COMPONENT_LIBRARY-OType; 

Type *SB_COMPONENT_OType; 

Type *SB-COMPON ENT -DICTION A RY-OType; 



Type *SB-KEY\VORD_DICTION A RY-OTvpe; 

Type *SB.TEXT.OB.l ECT.OType; 

Type +SB-ADT-COM PONENT.OTvpe; 

Type *SB-OPERATOR.COM PONENT.OTvpe; 

Type *SB_ADT-OPERATOR_OType; 

Type *SBJD-DECL_DICTIONARY-OType; 

Type *SB JD.DECL.OType; 

Type *SB_TYPE_NAME-OType; 

Type *SB_A DT -OPERATOR-DICTION ARY .OType; 
Type +SB.EXCEPTION -DICTION ARY -OType; 

Type ♦SB.TYPE.USAGE-OType; 

Type +SB.TYPE.US AGE-DICTION ARY -OType; 
Type *SB-RECOGNIZED.TYPES-OType; 
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SB_L1BRARY *SB_M AIN .LIBRARY; 



SB-COMPONENT *YYPARSE_component; // used by yyparse to pass the components 

extern yyparseQ; 

main(int argc,cliar *argv[|) 

{ 

int exit Jag; 

void update.db.types(); 

int parse_comniand(int argc,cliar *argv[J); 

Boolean get Janguage_library(int argcxhar *argv[|); 

if(OC.open(LOGICAL_DB_NAME)^TRUE) 

{ 

cout < "THE LOGICAL SOFTBASE " < LOGICALDB.NAME < "OPEN FAILED\n" 
exit( 1 ); 

}; 

int thejoperat ion — parse .command(argc.argv); 
if(the.operation^ML_N the.operation^O) 

{ 

if(!get_languageJibrarv(argc,argv)) 

{ 

exit(l); 

}; 

}; 

update_db_types( ) ; 

s wit ch( the.operation) 

{ 

case 0: 

{ 

cout < "AN INVALID OPERATION WAS GIVEN TO SB\n"; 
break; 

}; 

case KWL-N: 

{ 

if(argc==4) 

{ 

ofstream outfile(argv[3].ios::noreplace); 
if( out file) 

{ 

// outfilc was opened successfully 
SB-MAIN .LIBRARY— key word Jist(out file); 
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exit_fiag=0; 

} 

else 

{ 

cout <c "UNABLE TO OPEN OUTPUT FILE\n"; 
exit_flag=l; 

}; 

} 

else 

{ 

cout. <C "INCORRECT NUMBER OF ARGUMENTS'^"; 
exit_fiag=l ; 

}; 



break; 

}; 

case K\VQ_N: 

{ 

if(argc==5) 

{ 

ifstream infile(argv[3],ios::nocreate); 
if( infile) 

{ 

// query file open successful 

ofstream outfile(argv[4],ios::noreplace); 

if(outfile) 

{ 

// output file opened successful 

SB-MAIN -LIBRARY — keyword_query(infile,outfile); 

exit._flag=0; 

} 

else 

{ 

cout. <c "UNABLE TO OPEN OUTPUT FILE\n"; 
exitJiag=l; 

} 

} 

else 

{ 

cout « "UNABLE TO OPEN INPUT FILE\n"; 
exit_flag=l; 

}i 

} 

else 

{ 

cout < "INCORRECT NUMBER OF ARGUMENTS^"; 
exit _flag=l; 

}; 

break; 

}; 
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case OL_N: 

{ . 

if(argc ==4) 

{ 

ofstream outfile(argv[3],ios::noreplace); 
if(outfile) 

{ 

// output file opened successfully 

SB JM AIN _LII^R ARY -^operator Jist(outfile); 

exit Jlag=0; 

} 

else 

{ 

cout. <C "UNABLE TO OPEN INPUT FILE\n"; 
exit_fiag=l; 

}; 

} 

else 

{ 

cout < "INCORRECT NUMBER OF ARGUMENTS'^"; 
exit _flag=l; 

}; 

break; 

}; 



case CL_N: 

{ . 

if(argc==4) 

{ 

ofstream outfile(argv[3],ios::norepIace); 
if(outfile) 

{ 

// output file opened successfully 
SBJWAIN .LIBRARY — component Jist(outfile); 
exit _flag=0; 

} 

else 

{ 

cout <c "UNABLE TO OPEN INPUT FILE\n"; 
exit_flag=l; 

} 

else 

{ 

cout <c "INCORRECT NUMBER OF ARGUMENTS\n"; 
exit _flag=l; 

}; 

break; 

}: 

case TL_N: 

{ 
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if(argc==4) 

{ 

ofstream outfile(argv[3],ios::noreplace); 
if(outfile) 

{ 

// output file opened successfully 
SB JVI AIN -LIBRARY— type Jist (ou tfile); 
exit _fiag=0; 

} 

else 

{ 

cout < "UNABLE TO OPEN INPUT FILE\n"; 
exit_flag=l; 

}: 

} 

else 

{ 

cout < "INCORRECT NUMBER OF ARGUMENTS^"; 
exit Jlag=l; 

}; 

break; 

}; 

case CQ.N: 

{ 

if(argc==5) 

{ 

yyin=fopen(argv[3]."r "); 
if(yvin^NULL) 

{ 

// psdl file opened succesfully 
ofstream outfile(argv[4],ios::noreplace); 
if( out file) 

{ 

// out file open so do parse psdl.file 

// nesl ihc transaction so syntar error transaction 

II can be aborted 

get Janguage_library(argc,argv); 

if(yvparse()==0) 

{ 

// file parsed successfully result is 
/ / in Y Y PA RSE.co m p onent 

if(YYPARSE_component— ►getDirectType()==SB_OPERATOR_COMPONENTX)T 

{ 

((SB-OPERATOR-COMPONENT *)YYPARSE.component)-» 
process -type info(); 

} 

else 

{ 

((SR-A DT.COM PONENT *)YYPARSE_component)— 
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process .type info(); 



}; 

SB-MAIN .LIBRARY— ►query(YYPARSE.cornponent,outfile); 

/ / Y Y PA RSE.componenUy Destroy (FALSE); 

exit-flag=0; 

} 

else 

{ 

cout < "THERE WAS AN ERROR DURING PARSING 

cout < argv[3] < "\n"; 

exit.flag=l; 

}; 



} 

else 

{ 

cout <c "UNABLE TO OPEN OUTPUT FILE\n"; 

exit Jlag=l; 

}; 

} 

else 

{ 

cout <c "UNABLE TO OPEN INPUT FILE\n"; 

exit Jlag=l; 

}; 

} 

else 

{ 

cout <c "INCORRECT NUMBER OF ARGUMENTS'^"; 

exit _fiag=l; 

}; 

break; 

}; 



case CAJV: 

{ 

if(argc==6) 

{ 

vvin=fonen(argv[3],"r"); 

if(vyin^NULL) 

{ 

// psdl file opened succesfully 
ifstream spec Jn(argv[4],ios::nocreate); 
if(specJn) 

{ 

// spec-in file open so do parse psdLfile 
ifstream bodyJn(argv[5],ios::noreplace); 
if(bodv.in) 

{ 

// all files successfully open so start transaction 
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// nest the transactions so syntax errors can 
// be aborted 

get_language_library(argc,argv); 

update_db_types(); 

if(yyP a rse()==0) 

{ 

// file parsed successfully result is 

II in YYPARSE-component so add the psdl to it 

If and the spec and body 

ifstream psdl Jn(argv[3],ios::nocreate); 

YYPA RSE-Component— ►add.text (psdl -in, spec -in, body _in); 

// now normalize the formal description if there is 
II one 

if( st rlen ( YYPA RSE .component— ► 

formal_description()— »text())>0) 

{ 

char *temp_dir = getenv(TEMP.ENVIRONMENT); 
if (temp.dir == NULL) 

{ 

temp.dir = new char [strlen( DEFAULT-TEMP) -f 1]; 
strcpy( temp.dir, DEFAULT-TEMP); 

}; 

char * temp -file = tempnam(temp_dir, "ojb"); 
char *erroi-file = tempnam(temp.dir,"nrm"); 

os t r s t ream c om m a n d_b u f fer ; 
ostrstream remove-buffer; 
ostrstream obj -file-buffer; 
ostrstream norm_file_buffer; 

obj_file_buffer <C temp_file <C ".obj" <C ends; 
norm -file-buffer <C temp_file " .obj .norm" <C ends; 

char *obj_file=obj_file_buffer.str(); 
char *norm_file=norm_file_buffer.str(); 

command-buffer <C NORMALIZE; 
command-buffer <C obj.file 
command-buffer <C error-file <C ends; 

remove-buffer "rm " <C temp_file <C 
remove-buffer <C ends; 
ofstream formal_desc(ob j.file) ; 

YY- 

PARSE.component — formaLdescription( )— Text(formaLdesc); 

formaLdesc .close( ) ; 

char *command=command_buffer.str(); 
int status _flag=system(command); 
if(statusJlag==0) 
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// succsessful so get the norm file 
ifst ream norm_in ( norm-file) ; 
if (norm-in) 

{ 

// file was there so append it 
Y Y PA RS E -com pon en t — ► 
norm_formaLdescription()— ► 
append (norm in); 



if(YYPARSE_component— ►getDirectType()== 
SB_OPERATOR-COMPONENT -OType) 

{ 

((SB-OPERATOR-COMPONENT 

*)YYPARSE-component ) — 

process jtvpe info( ) ; 

} 

else 

{ 

((SB-ADT.COMPONENT 

*)YYPARSE_component ) — 

process Jty pe Jnfo( ) ; 

}; 

if( S B _M A I N .LI B R A RY— * 

querv(YYPARSE_component— *component_name())= 

{ 

// component not already in library so store it 
OC_transactionStart(); 

YYPARSE-Component— »putObject(); 

Boolean add_status=FALSE; 

addjstatus=SB -MAIN -LIBRA RY—^add(YYPARSE 

if(addjstatus==TRUE) 

{ 

OC_transactionCommit(); 

exit_flag=0; 

} 

else 

{ 

exit_flag=l; 

cout < "UNABLE TO ADD COMPONENT M ; 

cout < 

YY PARSE .component — component-name(); 

cout < "TO MAIN LIBRARY\n"; 
OC-transactionAbort(); 

} 

} 

else 

{ 

cout < "COMPONENT " < 
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endl; 



*)YYPARSE_component )— 



YYPA RSE.component— ♦component jiame(); 
cout < " IS ALREADY IN MAIN LIBRARY "< 



cout <C "UNABLE TO ADD IT AGAIN \n"; 
exit_flag=l; 

}; 

} 

else 

{ 

cout < "ERROR NORMALIZING AXIOMS\n"; 
exit_flag=l; 

}; 

} 

else 

{ 

cout <c "ERROR NORMALIZING AXI0MS\n"; 
ifstream error .stream (error -file); 
if( error-stream) 

{ 

char *theJine=new char[256]; 
whlle( !errorjstream.eof()) 

{ 

error_stream.getline(theJine,255); 
cout <C theJine endl; 
error jstream ws; 

}; 

} 

else 

{ 

cout <c "COULD NOT OPEN NORMALIZE"; 
cout < " ERROR FILE\n"; 

}; 

exit Jiag=l; 

}; 

} 

else 

{ 

if(YYPAR.SE_coniponent— *getDirectType()== 
SB.OPERATOR-COMPONENT.OType) 

{ 

((SB-OPERATOR-COMPONENT 
process _tvpe jnfo(); 

} 

else 

{ 

((SB-ADT.COMPONENT *)YYPARSE-componentH 

process -type Jnfo(); 

}; 

if(SB.MAIN-LIBRARY— ♦ 
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query (YYPARSE.component— +component_name())==NULL) 

{ 

// component not already in library so store it 
OCLtransactionStartQ; 

YYPARSE.component— ►putObjectQ; 

Boolean add_status= FALSE; 

add.status=SBJVlAINXIBRARY^add(YYPARSE.compone] 

if(addjstatus==TRUE) 

{ 

OC.transactionCommitQ; 

exitJlag=0; 

} 

else 

{ 

exit _flag=l; 

cout < "UNABLE TO ADD COMPONENT 

cout < 

YYPARSE.component — component. name(); 

cout < "TO MAIN LIBRARY\n"; 

OC_transactionAbort(); 

} 

} 

else 

{ 

cout <c "COMPONENT " < 

YYPA RSE.component— ►component -name(); 
cout. < " IS ALREADY IN MAIN LIBRARY "<endl; 

cout < "UNABLE TO ADD IT AGAIN \n"; 
exit Jlag=l; 

}; 

}; 

} 

else 

{ 

cout < "THERE WAS AN ERROR DURING PARSING "; 

cout < argv[3] < "\n"; 
exit .flag = 1 ; 

}; 



} 

else 

{ 

cout <c "UNABLE TO OPEN THE IMPLEMENTATION BODY FILE\n"; 

exit_flag=l; 

}: 

} 

else 

{ 

cout < "UNABLE TO THE IMPLEMENTATION SPEC FILE\n"; 

exit Jlag=l; 
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}; 

} 

else 

{ 

cout < "UNABLE TO OPEN PSDL FILE\n"; 
exit Jlag=l; 

}; 

} 

else 

{ 

cout <c "INCORRECT NUMBER OF ARGUMENTS\n"; 

exit-flag=l; 

}; 

break; 

}; 



case ML_N: 

{ 

if(argc==4) 

{ 

char *language_name=argv[2] ; 

char *library_name=new cliar[strlen(languagejiame)-f 

strlen(LIBRARY_PREFIX)+ 

strlen(LlBRARY_SUFFlX)+l]; 

st rcpy( library .name, LIBRARY-PREFIX); 
st rcat (library _name, language-name); 
st r c a t ( 1 i b r a r y _n a me , L I B R A RY_S U F F I X ) ; 

OC-transactionStartQ; 

SB-MAIN JJBRARY=new SBJLIBRARY(libraryjiame,argv[3]) 
SB-MAIN JJBRARY— put Object () ; 

OC-transactionCommit(); 

exit-flag=0; 

} 

else 

{ 

cout <c "INCORRECT NUMBER OF ARGUMENTS\n"; 
exit _flag=l; 

}; 

break; 



}; 

case DL_N: 

{ 

if(argc==3) 

{ 

OC-transact ionStart ( ); 

SB.M AIN JjIBR ARY— deleteObject (TRUE); 
OC_transactionCommit(): 
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exit Jlag=0; 

} 

else 

{ 

cout < "INCORRECT NUMBER OF ARGUMENTS’^"; 
exit _flag=l; 

}; 

break; 



}; 



case CV_\: 

{ 

if(argc==7) 

{ 



ofstreani psdl_out(argv[4],ios::noreplace); 
if(psdl_out ) 

{ 

ofst ream spec _ou t ( a rg v [5] , ios : : noreplace ) ; 
if(spec.out.) 

{ 

ofst ream body_out(argv[6],ios::noreplace); 
if(bod\ .out) 

{ 

get JanguageJibrary(argc,argv); 
update_db_types(); 

SB.COM PONENT 

*the_component=SB_M AIN -LIBRARY— query (argv[3]); 

if ( t h e.com p onent ^ N U L L ) 

{ 

// component found so dump all streams 

(the.component— psdl.textQ)— >*text(psdl_out); 

(the.component— imp_spec_text())— >text(spec_out); 

(the.component — imp_body_text())— ►text(body.out); 

psdLout.close(); 

spec_out.close(); 

body_out.close(); 

exit_flag=0; 

} 

else 

{ 

cout < "COMPONENT " < argv[3] < " NOT FOUND\n"; 
exit_flag=l; 

}; 



} 

else 

{ 

cout < "UNABLE TO OPEN THE IMPLEMENTATION BODY FILE\n" 

exit _flag= 1 ; 

}; 
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} 

else 

{ 

cout <C "UNABLE TO OPEN THE IMPLEMENTATION SPEC FILE\n"; 

exit Jiag=l; 

}; 

} 

else 

{ 

cout. < "UNABLE TO OPEN PSDL FILE\n"; 
exit Jlag=l; 

}; 

} 

else 

{ 

cout <c "INCORRECT NUMBER OF ARGUMENTS\n"; 
exit_flag=l: 

}: 

break; 

}; 



case CD_N: 

{ 

if(argc==4) 

{ 



SB-COMPONENT *the_component=SB -MAIN -LIBRA RY-+query(argv[3]); 
if(the_component^NULL) 

{ 

// component found so output its sources to backup 
II Ibis is where the SCCS code goes for the.component 
/!( the-component->psdlJext())->text(psdLout); 
ll( the-coniponent->inrp-spec-1ext())->tex1(spec.out ); 

/ / (the. co mponent~> imp. body .text ())->t ext (body, out); 

/ / psdLout.close(); 

/ / spee.out. close(); 

/ / body. out. close (J; 

OC.t ransactionStartQ; 

// note delete the component from the library 
SB.MAIN .LIBRARY— delete_component(the_cornponent); 
exit Jlag=0; 

OC.transactionCommitO; 

} 

else 

{ 

cout. < "COMPONENT " < argv[3] < " NOT FOUND\n"; 
exit _flag=l; 

}: 



} 

else 

{ 
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cout <c "INCORRECT NUMBER OF ARGUMENTS'^"; 
exit Jlag=l; 

}; 

break; 

case CDIAG.N: 

{ , 

if(argc==5) 

{ 



ofstream outfile(argv[4],ios::noreplace); 
if(outfile) 

{ 

// ouifile teas opened successfully 

SB_COMPONENT *the_component=SBJVl AIN -LIBRA RY^query(argv[3]) 
i f ( t h e _co m po n e n t / N U L L ) 

{ 

// component found so outputs its diagnostics 
thejcomponent— print On(out file); 

} 

else 

{ 

cout < "COMPONENT " argv[3] <C " NOT F0UND\n"; 
exit _flag=l; 

}: 

} 

else 

{ 

cout <c "UNABLE TO OPEN OUTPUT FILE\n"; 

exit Jlag=l; 

}; 



else 

{ 

cout < "INCORRECT NUMBER OF ARGUMENTS \n"; 
exit Jlag=l; 

}; 

break; 

}; 



}; 

OC-dose( ); 
exit (exit -flag); 

}; 



int yyerror(char *s) 



1M 



{ 

cout. <c "\n" s «C " on line number " lmeLnumber; 

cout. <c M \ n "; 

return(O); 

}; 



void update-db Jvpes( ) 

{ 



SBJLIBRARY.OType=(Type *) OCJookup("SB_LIBRARY"); 

SB.COM PON ENT.OType=(Type *) OCJookup("SB-C0MP0NENT"); 

SB_ADT.COM PONENT.OType=(Type *) OC -lookup("SB_ADT.COMPONENT"); 

SB JD_DECL.DICTIONARY.OType=(Type *) OCJookup("SB_ID_DECL_DICTI0NARY"); 

SB JD J3ECL.0Type=(Type *) OC Jookup("SB_ID_DECL"); 

SB.TYPEJS'AME.OType=(Type *) OC Jookup("SB_TYPE.NAME"); 

SB_ADT_OPERATOR DICTIONARY .OType=(Type *) 

OC Jookup("SB_ADT_OPERATOR_DICTIONARY"); 

SB-ADT.OPERATOR.OType=(Type *) OC _lookup( M SB_ADT_OPERATOR" ); 
SB.OPERATOR.COM PON ENT _OType=(Type *) OC Jookup("SB.OPERATOR.COMPONENT"); 
SBDXCEPTION_DICTIONARY.OType=(Type *) OCJookup("SB_EXCEPTI0N_DICTI0NARY"); 
SB.TEXT.OBJ ECT.OTy pe=(Type * ) OC Jookup( "SB.TEXT.OB JECT" ); 
SBJ\EYW0RD.DICTl6NARY.0Type=(Type *) OC Jookup("SB_KEYWORD_DICTIONARY"); 
SB.COM PONENTDICTIONARY.OType=(Type *) 
OC.lookup("SB_C0MP0NENT_DICTI0NARY"); 

SB_ADT.COMPONENT DIBRARY.OType=(Type *) 
OC_Iookup("SB_ADT_C0MP0NENT_LIBRARY"); 

SB_OPERATOR.COM PONENT_LIBRARY.OType=(Type *) 

OC.lookup( "SB. OPERATOR-COMPONENT. LIBRARY"); 

SB.TYPE.USAGE.OType=(Type *)OC-lookup("SB_TYPE.USAGE"); 



SB.TYPE.USAG EVICTION A RY.OType=(Tvpe 
*)OC_lookup("SB.TYPE_US AGE-DICTIONARY"); 
SB.RECOGNIZED.TYPES.OType=(Type *)OCJookup("SB_REC0GNIZED_TYPES"); 



}; 

int parse_connnand(int argc, char *argv[|) 

{ 



int return _value=0: 



if(argc >2) 

{ 

if(strcmp(argv[l],K\VL)==0) 

{ 



return _va 1 ue= K W L_N ; 



} 

else if(strcmp(argv[l],I\\YQ)==0) 
{ 



return _value=K\YQ_N; 

} 
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else if(strcmp(argv[l],OL)==0) 

{ 

retum_value=OL_N; 

} 

else if(strcmp(argv[l],TL)==0) 

{ 

retu rn _val ue=TL_N ; 

} 

else if(strcmp(argv[l],CQ)==0) 

{ 

return _value=CQ_N; 

} . 

else if(strcmp(argv[l],CA)==0) 

{ 

return _value=CA_N; 

} 

else if(strcmp(argv[l],CV)==0) 

{ 

ret u rn _va 1 u e = C U _N ; 

} 

else if(strcmp(argv[l],CD)==0) 

{ 

return_value=CD _N ; 

} 

else if(strcmp(argv[l],CL)==0) 

{ 

return -value=CL-N ; 

} 

else if(strcmp(argv[l],CGM)==0) 

{ 

return _value=CGM_N : 

} _ 

else if(strcmp(argv[l],ML)==0) 

{ 

return _va 1 ue= M L _N ; 

} 

else if(strcmp(argv[l].C\’)==0) 

{ 

return-value=C\ , -N ; 

} . 

else if(strcmp(argv[l],DL)==0) 

{ 

r e t u r n _v a 1 u e = D L _N ; 

} 

else if(strcmp(argv[l],CDIAG)==0) 

{ 

return _value=CDI AG _N ; 

} 

} 

return return_value; 

}; 
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Boolean get Janguage_librarv(int argc,char *argv[|) 

{ 

Boolean return_flag=FALSE; 



if(argc > 0) 

{ 

char *language_name=argv[2]; 



char *library_name=new char[strlen(language.name)+ 

strlen(LIBRARY_PREFIX)+ 

strlen(LIBRARY_SUFFIX)+l]; 

strcpy (library -name, LIBRARY-PREFIX); 
strcat (library -name, language-name); 
strcat(library -name, LIBRARY -SUFFIX); 

// ASSIGN THE GLOBAL VARIABLE SB-MAIN .LIBRARY THE VALUE OF THE 
LIBRARY 

SB-M AIN.LIBR A RY=(SB -LIBRARY *) OCJookup(library-name); 

if(SB_MAIN_LIBRARY==NULL) 

{ 

cout < "LIBRARY FOR LANGUAGE "; 
cout < language_name <C " NOT F0UND\n"; 
return _flag= FALSE; 

} 

else 

{ 

ret u r n _fl ag=T RU E ; 

}; 

} 

else 

{ 

cout. < "INCORRECT NUMBER OF ARGUMENTS'^"; 

}; 



return return -flag; 

}; 



( 



# include ’’ sball . hxx 



# include ’’sbextern.h” 

SB_A DT.COM PONENT::SB _ADT.COM PON ENT(APL *theAPL): 
SB.COMPONENT(theAPL) 

{ 

}; 

SB_ADT.COMPOi\ENT::SB_ADT.COMPONENT (char *id) : SB.COMPONENT(id) 

{ 

SB.TYPE.US AGE-DICTION ARY *new_adt.usage=new 
SB_TYPE.USAGE_DICTIONARY(); 

the_adt.usage=new_adt .usage— findTRef(); 

SB-ADT.OPERATOR.DICTIONARY *new_operator.specs:=new 
SB_ADT.OPERATOR.DICTIONARY(); 



the.operator .specs=ne\v operator .specs— findTRef(); 

}; 

void SB_ADT.COM PONENT::insert_adt_usage(SB_TYPE.USAGEJDICTIONARY* 
new _adt .usage) 

{ 

adt_usage()— append (new ^adt .usage); 

}; 

void SB_ADT-COMPONENT::insert -operators(SB_ADT-OPERATOR_DICTIONARY* 
new .opera tors) 

{ 

operator.specs()— append( new .operators); 

}; 

void SB_ADT.COM PON ENT: :Destrov( Boolean aborted) 

{ 

adt._usage() — Destroy (aborted); 

operator_specs( )— > Destroy! aborted); 

delete the.adt.usage; 
delete the.operator .specs; 

S B _C 0 M PO N E N ' T : : Des t r oy ( a bor ted ) ; 

}; 

void SB_ADT.COM PON ENT ::deleteObject( Boolean deallocate) 

{ 



adt_usage( )— -deleteObject (FALSE); 
operator-specs()^deleteObject (FALSE); 
SB_COMPONENT::deleteObject (deallocate); 

}; 

void SB_ADT_COMPONENT::putObject(Boolean deallocate) 

{ 

adt.usageQ^put Object (deallocate); 
operator.specs()^put Object (deallocate); 
SB_COMPONENT::putObject(dea Locate); 



}; 

SB.TYPE-USAGEJDICTIONARY *SB.ADT_COMPONENT::adt.usage() 

{ 

return (SB.TYPE-USAGE.DICTIONARY *)(the.adt_usage^Binding()); 

}; 

SB_ADT-OPERATOR.DICTIONARY *SB_ADT.COMPONENT::operator^pecs() 

{ 

return (SB.ADT.OP ERATO R.DICTION ARY *)(the_operator jspecs— *Binding()) 

}; 

Type *SB.ADT.COiMPONENT::getDirectTvpe() 

{ 

return SB_ADT.COMPONENT.OTv])e; 

}; 



void SB_ADT.COM PON ENT : :printOn(ofstream«k outstream) 

{ 

outstream < M \nOUTPUTING THE CONTENTS OF DATA TYPE 
outstream <C this— ►component_name() <C ":\n\n"; 

outstream <C "num unrecognized types " <C num_unrecognized_types() <C "\n" 
outstream < "GENERIC SPECS\n"; 

SB.COM PONENT::generic.usage()— sprint On (outstream); 
outstream < "\nTYPE SPECS\n"; 
adt.usage( )— ►print.Oi^out st ream ) ; 

outstream < "\nOPERATOR SPECS\n"; 
operator_specs() — printOn( out stream); 

outstream <C "\n\n"; 



}; 
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int SB_ADT.COMPONENT::nuin.adt_operators() 

{ 

return operator_specs()— +num(); 

}; 

int SB_ADT_COMPONENT::total_inputs() 

{ 

return operator_specs()— ^total input s(); 

}; 

int SB_ADT.COMPONENT::num.adts() 

{ 

return adt_usage() — num(); 

}; 



int SB_A.DT.COM PONENT::totaLoutpiits() 

{ 

return operator -specs() — total_outputs(); 

}; 

Dictionarylterator SB_ADT.COM PON ENT::adt_operator_iterator() 

{ 

return operator-specs() — iterator(); 

}; 

Dictionarvlterator SB_A DT_C0M PON ENT: :adt JteratorQ 

{ 

return adt.usage( ) — type id Jterator(); 

}: 

Boolean SB_ADT_COMPONENT::process_tvpe infoQ 

{ 

// tell each operator io update its type usage lists 
// they int urn update the adt lists 

Dictionarylterator nextjoperat.or=adt_operator iterator(); 
while(next .operator. nioreDat a( ) ) 

{ 

((SB-ADT.OPERATOR *)(Entity *)next joperatorQ)— 
p ro cess _t v p e i nfo( t his ) ; 

}; 

return TRUE; 

}; 

int SB jVDT.COM PON ENT: :nuin_generic_tvpes( ) 

{ . 

int the_num=0; 
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Dictionary Iterat or next.operator=adt. operator _it.erator(); 
wliile(next-operator.moreData()) 

{ 

the-nuni=thejnim+ 

((SB-ADT-OPERATOR *)( Entity *)next_operator())— 
nuni-generic -tvpes( ); 

}; 



// now get an iterator for the adt generics list 



Dictionarylterator next_id=SB_COMPONENT::generic_usage()— * 
type id _iterator(); 

wliile(nextJd.moreData()) 

{ 

SB.TYPE.USAGE *the_usage=(SB_TYPE_USAGE*)(Entity *)next_id(); 
SB_TVPE_NAME *the_t.ype_name=the_usage— Type _name(); 
if(t.]ie_tvpejiame — tvpe_code( )==SB -GENERIC-TYPE) 

{ 

the_mini=the_mim++; 

}; 



}; 

return the_nuin; 

}: 

Boolean SB_ADT.COMPONENT::filter(SB_ADT .COMPONENT *librarv.unit) 

{ 

// <*Pply additional filter operations to the library unit 
//to see if the component can be rejected . True means 
// that it may still be a match. False indicates no match 

return TRUE; 

}; 
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# include ” sball . hxx” 



# include ’’sbextern.h" 



SB_ADT_COMPONENT_LIBRARY::SB_ADT_COMPONENT.LIBRARY(APL *theAPL) 
Object(theAPL) 

{ 

}; 



SB^DT.COMPONENTXIBRARY::SB_ADT.COMPONENTXIBRARY() : Object() 

{ 



SB_COMPONENT_DICTIONARY *new_adt_component_dictionary= 
new SB.COM PON ENT_DICTIONARY(); 

the.adt_component.dict ionary = 

new.adt_component.dict ionary— findTRef(); 



Dictionary *new_main_library=new Diet ionary (OC.integer, 

OC.dictionary, 

TRUE, 

FALSE); 

the_main_library=new_main_library— findTRef(); 



}; 

void SB_ADT_COMPONENT_LIBRARY::Destrov( Boolean aborted) 

{ 

adt.component.dictionaryO — Destroy (aborted); 

// now must iterate through the multi-attribute tree of 
// dictionaries to destroy each one of them 

Dictionary *by_num_adts; 

Dictionary ♦ by _nu m .operators; 

Dictionary *by_niim_total_inputs; 

Dictionary * by mum .generics; 

Dictionary *by_num_total_outputs; 

Dictionary ♦leaf-dictionary; 

by_num.adts=main_library(); 

Dictionary Iterator next_by_num_adt(by_num_adts); 

while(next_bv_num_adt.moreData()) 

{ 

by _num_operat.ors=( Dictionary *)(Entity *)next_by_num_adt(); 

// components must have at least as many operators as the query 



Dictionarylterator next _by_num_operators(by_num_operators); 

while(next_by_miin_operators.moreData()) 

{ 

by _num_generics=( Dictionary *)( Entity *) 
next_by_num_operators(); 

Dictionarylterator next_by_num_generics(by jium.generics); 

wliile(next-by_num_generics.moreData()) 

{ 



by_numJotaLoutputs=(Dictionary *)(Entitv *) 
next_by_num_generics(); 

Dictionarylterator 

next _by_nu]n_total_outputs(byjnim_totaLoutputs); 

wliile(next_bv_nuin_total_outputs.moreData()) 

{ 



by_num_totaLinputs=(Dictionary *)(Entity *) 
next_by_nuin_total_outputs(); 

Dictionarylterator 

next_by_nuin_totaLinputs(by_num_totaLinputs); 

wliile(next_bv_num_totaLinputs.moreData()) 

{ 

leaLdictionarv=( Dictionary *)(Entity *) 
nex t _by _i m m _to t a Li n p u ts ( ) ; 

leaLdictionary — Destroy (aborted); 



}: 

by_niim_total_inputs — Destroy (aborted); 



}: 

by _num_totaLoutputs— * Destroy (aborted); 



}; 

by_num_generics — Destroy( aborted); 
}; ' 

bv_num_adt s— Dest rov( aborted ) ; 

}; ‘ 



delete the.adt.component .diet ionarv; 
delete the_inain_library; 



Object;; Dest roy (aborted); 



void SB_ADT_COMPONENT_LlBRARY:.deleteObject (Boolean deallocate) 

{ 

adt_component_dictionary()— *deleteObject(deallocate); 

// now must iterate through the multi-attribute tree of 
// dictionaryies to destroy each one of them 

Dictionary *by_num.adts; 

Dictionary *bv_nuin_operators; 

Dictionary *by_nurn_totaLinputs; 

Dictionary *by_num_generics; 

Dictionary *by_num_total_outputs; 

Dictionary *leaf_dictionary; 

by_num_adts=mainJibrary(); 

Dictionary Iterator next_by_nuni_adt(by_num_adts); 

while(next _bv_num_adt .nioreData()) 

{ 

by _nuni_operators=( Diet ionary *)( Entity *)next_by_num_adt(); 

// components must have at least as many operators as the query 

Dictionary It era tor next Jn_num_operators(by_num_operators); 

while(next_bv_nuin_operators.nioreData()) 

{ 

by_nuni_generics=( Dictionary *)(Entity *) 
next J>y-iium_operators( ); 

Dictionary Iterator next_by_num_generics(by_num_generics); 

wliile(next.by_num_generics.moreData()) 

{ 



by jnnnJ.otaLoutputs=( Dictionary *)(Entity *) 
nex t _by _n u m _generics( ) ; 

Dictionary Iterator 

next _by_numJotaLoutputs(by_num_totaLoutputs); 

while(nextJbv_num_totaLoutputs.inoreData()) 

{ 



byjium.totaLinputs=(Dictionary *)(Entity *) 
next J:>y _num_totaLout puts(); 

Dictionarylterator 

next-by jium.totaLinputs(by_num-totaLinputs); 
while(next_by_nuni-totaLinputs.nioreData()) 
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{ 

leaf_dictionarv=( Dictionary *)(Entity *) 
next_byjiuin_total_inputs(); 

leaf-dictionary— deleteObject( FALSE); 

}; 

byjium.totaLinputs— >deleteObject (FALSE); 

}; 

by _num_total_outputs—deleteObject( FALSE); 

}; 

by-Jium_generics— deleteObject.( FALSE); 

}; ‘ 

bv-iium_adts— deleteObject( FALSE); 

}; ' 

Object ::deleteObject( deallocate); 

}; 

void SB_/VDT_COMPONENT_LIBRARY::putObject(Boolean deallocate) 

{ 

ad t-component -dictionary^ ) — Diet ionary ::put. Object (deallocate); 
mainJibrary()— putObject( deallocate); 

Object ::putObject (deallocate); 

}; 



Type *SB_ADT_COMPONENT_LIBRARY::getDirectType() 

{ 

return SB_ADT.COM PONENT_LIBRARY.OTvpe; 

}; 

SB-COMPONENT.DICTIONARY 

♦SB-ADT.COMI^ONENT JJ BRA RY::adt. component. dictionary() 

{ 

return (SB.COM PONENT.DICTION ARY *)(Entity *) 
the jdt. component .dictionary — Binding(); 

}; 

Dictionary *SB_ADT_COMPONENT_LIBRARY::main_library() 

{ 

return (Dictionary *)(Entitv *)the_main_library— >Binding(); 

}; 



Boolean SB_ADT.COMPONENT.LIBRARY::add(SBJVDT .COMPONENT *new .component) 

{ 

Boolean return.flag=TRUE; 
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Dictionary *by_num_adt,s; 

Dictionary *by_num .operators; 

Dictionary *by_num_total_inputs; 

Dictionary *by.num_generics; 

Dictionary * by _nu m _t o t. aLo u t p n t s ; 

Dictionary *leaf_dictionary; 

adt.component.dictionaryQ— add(new.component); 
adt_component_dictionary()~*Dictionary::putObject(); 

// insert into the component dictionary was suecessfull 
I j so insert it into the library 

// get the dictionary for the number of adt's 

byjinm_adts=mainJibrary( ); 

// now find the dictionary for a dt. operators 

if(bv_num_adts — isIndex(new_component — nmn_adts())) 

{' 

by_num_operators=( Dictionary *)( Entity *)(*by_num_adts) 
[new.component — num_adts( )]; 

} 

else 

{ 

by_num_operators=new Dictionarv(OC_integer, 

OC.dictionary, 

TRUE, 

FALSE); 

by_num_adts — Insert (new .component — 
num.adts(), 
by _n u 1 n _o p e ra t o r s ) ; 



}; 



// have correct by. iium. operator dictionary so get the 
II generic types diet. 

if(by_nnni_operators — isIndex(new_component — 

num_adt_operators())) 

{ 

by _num_generics=( Dictionary *)(Entity *) 
(♦byjium.operators) 

[ new.component — 
num_adt.operators( )]: 

} 

else 
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{ 



by_num_generics=new Dictionary(OCJnteger, 

OC.dictionary, 

TRUE, 

FALSE); 



by_nuin_operators— * Insert (liew.component — * 

num_adt_operators() , 
by_num_generics); 



}; 



// got the generics dictionary so get the total base 
// types dictionary 

if(by_num_generics— dslndex(new .component— 

num_generic_tvpes())==TRUE) 

{ 

by_num_totaLout.puts=(Dictionary *)(Entity *) 

( *by _num_generics) 

[new.component— mi m_generic_types( )] ; 



} 

else 

{ 

by_num_total_outpiits=new Dictionary(OC_integer, 

OC-dictionary, 

TRUE, 

FALSE); 

by _iui m .generics — 1 user t ( new _com ponent — 

num_generic Jypes( ) , 
by _nu i n_t ot a Lou t pu ts ) ; 



}; 



if( by _nuni_ total-outputs— 

islndex(new_component — total_outputs())==TRUE) 

{ 

by_nuni_totaLinputs=(Dictionary *)(Entit,y *) 

(*by jium.totaLoutputs) 

[new.com ponent— totaLou tpu ts( )] ; 

} 

else 

{ 

byjiuni_totaLinputs=new Dictionary(OC_integer, 

OC.dictionary, 

TRUE, 
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TRUE); 



by _nuni.totaI_outputs—*Insert(new .component— ► 

total.outputs(), 

by_num_total_inputs); 



}; 



if(by_num.totaLinputs— ♦ 

islndex(new .component— *total_inputs()):==TRUE) 

{ 

leaLdictionary=( Dictionary *)( Entity *) 

(*by _num_total.inputs) 

[new.component— -totaI_inputs()]; 

} 

else 

{ 

leaf_dictionary=new Dictionary(OC_string, 

SB-ADT_COMPONENT_OType, 

FALSE, 

FALSE); 

by jnim.totaLinputs— Insert (new .component — 

total Jnputs(), 
leaf-dictionary); 



}; 



// have to leaf dictionary so now insert the component into it 

leaf-dictionary— I nsertfnew .component— -component Jiaine(), 

new .component); 



by_num_adts — putObjectf); 
by.num.operators — putObject(); 
by_num.total.inpi] ts— putObjectQ; 
by_num_generics— ►putObjectf ); 
by_num_total_outputs^putObject( ); 
leaf-dictionary — putObjectf );; 

return return Jlag; 

}; 

void SBj^DT.COMPONENTXIBRARY::delete.coniponent(SB^\DT.COMPONENT 
*the_component) 

{ 



Dictionary *by_num_adts; 

D i c t io n a ry * by _num .op er a t ors 



Dictionary *by_nnm_totaLinpiits; 
Dictionary *by_num_generics; 
Dictionary *by_num_totaLoutputs; 
Dictionary *leaf.dictionary; 



adt.component .dictionary () — Remove(the.component— component_name()) 
adt_component_dictionary() — Dictionary ::putObject(); 



by jium.adts=:main_library( ) ; 

// now find ihe dictionary for a dt. operators 

if(bv_mim_adts— isIndex(the_component— num.adts())) 

{ 

by juim_operators=( Dictionary *)( Entity *)(*by_num_adts) 
[the.component — num_adts()]; 

// have correct by.nam .operator dictionary so get the 
// generic types diet. 



if(by_num_operators—isIndex(the_component — 

num.adt.operatorsQ)) 



{ 



by _nuin_generics=( Dictionary *)( Entity *) 
( *by _n um.operators) 

[the.component — 
num_adt.operators( )]; 



// got the generics dictionary so get the total base 
II types dictionary 



if(by_num_generics — islndex( the.component— 

num.generic.types())=:=TRUE) 



{ 



by_num_totaLoutputs=(Dictionary *)(Entity *) 
( * by _n u m_gen er i cs ) 

[the.component— num.generic.typesQ]; 



if ( by _n n m. t ot a L o u t p u t s — 

islndex( the.component— +total_outputs())==TRUE) 

{ 

by_num_total_inputs=:(Dictionary *)(Entity *) 

( *by_num_total.outputs) 

[the.component— total.outputsQ]; 



if( by JiunU ota 1. inputs— 

islndexf the.component — total.inputs())— — TRUE) 

{ 

leaf.dictionary=(Dictionary *)(Entity *) 
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(*by_num_total_inputs) 

[the.component— ►totaLinputs()]; 

// have to leaf dictionary 

leaLdictionary— *Remove( the.component— ^componenLname()); 

leaLdictionary— ►putObjectO; 

if( leaLdictionary— ►Cardinality ()=r=rO) 

{ 

by_num.t.otaLinputs— * 

Remove(the.component-+total_inputs()); 
by jium.totaLinputs— ►put Object (); 
leaf.dictionary^deleteObject(TRUE); 

if( bv.num.total. inputs— *Cardinality()=:=:0) 

{ 

by.num.total.outputs— * 

Rem ove ( t he.com p o nen t — ► t o t al.o u t p u t s( ) ) ; 
by_num.totaLoutputs— ►putObjectO; 
by.num.total.inputs— ►deleteObject(TRUE); 

if(bv_num_totaLoutput.s— Cardinality () ==()) 

{' 

by_num_generics— 

Remove(the_component— ►num.generic.typesQ); 
byjium.generics— ► putObjectO; 
by_num_total_outputs— deleteObject(TRUE); 

if(bv_num_generics— ►Cardinality Q==0) 

{* 

by_num_operators— ► 

Remove(the_component— ►nuin_adt_operators()) 
by_num_operators-^putObject(); 
by.num.generics— ►deleteObjectQ; 

ifl(bv_num.operators— ► Cardinality()==0) 

{* 

by_num_adts— ► 

Remove(the.component— ►num.adtsQ); 
by_num.adts— ►putObjectO; 
byjium.operators^deleteObjectQ; 

}; 

}; 

}; 

}: 



130 



}; 



}; 



}; 



}: 



}; 



}; 



}; 

SB-COMPONENT JDICTION ARY *SB-ADTXOMPONENT_LIBRARY::query( 

SB_ADT_COMPONENT 

*querv_component ) 

{ 



Dictionary *by_num.adts; 
Dictionary *by_nuin_operators; 
Dictionary *by_num_totaLinputs; 
Dictionary *by_num_generics; 
Dictionary *by_num_totaLoutputs; 
Dictionary * leaf-dictionary; 



SB.COMPONENT -DICTIONARY ♦query _result=new SB .COMPONENT JDICTION ARY(); 

// in order for a maich library musl have al leasi as many adi’s as 
II being requesied 

byjium_adts=main_library(): 

Dictionarvlterator next_by_nuin_adt(by.mim_adts, 

FALSE, 

query .component — *nu m.ad ts( ) ) ; 

while(next_by_num_adt.moreData()) 

{ 

by_num.operators=(Dictionary *)(Entitv *)next_by-num_adt(); 

// componenls musl have al leasi as many operators as the query 

Dictionary Iterator next_byjium.operators(byjium_operators, 

FALSE, 

query .component— >num_adt.operators()); 

while(next_by_num_operators.moreData()) 

{ 

by _num_generics=( Dictionary *)( Entity *) 
next .by _nuni .opera tors(); 
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Dictionarylterator next_by_iium_generics(by_num_generics, 

FALSE, 



query .component— ^num_unrecognized.types( 



wliile(next-bv.num_generics.moreData()) 

{ 



by_num.totaLoutputs=(Dictionary *)(Entity *) 
next-by_num_generics(); 



Dictionarylterator next _by_num_totaLoutputs(by_num_ total-outputs, 

FALSE, 

query .component —►total.outputsQ 

while(next.bv_num_totaLoutputs.moreData()) 

{ 



by_num-total_inputs=( Dictionary *) (Entity *) 
next. by _mim_total_outpiits(); 

Dictionarylterator next .by jium.totaLinputs(by_num_totaLinputs J 

FALSE, 

query .component— ►total-inputs 



wliile(next-bv.num_totaLinputs.moreData()) 

{ 

leaLdictionary=( Dictionary *)(Entity *) 
next _bv jium.total.inputs(); 

Dictionarylterator next-component (leaf-dictionary); 

wliile( next .component .moreData()) 

{ 

SB_ADT.COMPONENT *the_component= 

(SB-A.DT.COMPONENT *)(Entity *)next.component(); 
if(querv_component — filter(the.component):==TRUE) 

{ 

querv_result — -add(the.component); 

}•■ 

}; 

}: 

}; 

}: 

}; 

}; 

// add code here for semantic matching interface 



return query .result; 



}; 



void SB^\DT_COMPONENT_LIBRARY::list(ofstreami: outstream) 

{ 

adt.component _dict ionary ()— > print On(outst ream); 

}; 
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# include ’’sball.hxx’’ 



# include "sbextern.h"' 



SB_ADT_OPERATOR::SB_ADT-OPERATOR(APL *theAPL) : 
SB.OPERATOR(theAPL) 

{ 

}; 



SB-ADT_OPERATOR.:SB_ADT-OPERATOR(char *id) : 
SB.OPERATOR(id) 

{ 



}; 



void SB_ADT_OPERATOR::De$trov(Boolean aborted) 

{ 

SB.OPERATOR::Destrov( aborted); 

}; 

void SB_ADT_OPERATOR::deleteObject(Boolean deallocate) 

{ 

SB.OPERATOR::deleteObject (deal locate); 

}; 

void SB_ADT_OPERATOR::putObject( Boolean deallocate) 

{ 

SB_OPERATOR::put Object (deallocate); 

}; 

Type *SB_ADT_OPER ATOR::getDirectTvpe( ) 

{' 

return SB-ADT.OPERATOR.OTvpe; 

}; 

Boolean SB_ADT_OPERATOR::processJvpeinfo(SB_ADT_COMPONENT *adt) 

{ 

// process types by checking local generic then adt.adt usage then 
II adt. generic usage before making it unrecognized. This will update 
II the adt usage dictionaries as well 

II update all usage dictionaryies for inputs and outputs 

// 

II first go through all of the inputs 

Dictionary Iterator next jnput=inpnt_attributes() — id Jterator(); 
while(next Jnput .moreDat.a( ) ) 

{ 

SBJD.DECL *this_decl = (SB JDJ3ECL *)(Entity *)next JnputQ; 
SB.TYPE.NAME *this_typejiame=this_decl— type_name(); 

// first see if this id.de cl type is a generic 
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if(generic_usage() — update(this_type_nanie)== FALSE) 

{ 

// was not a generic lype check ihe ADT generic list 

if( adt— generic_usage()— update(this_type_name)==FALSE) 

{ 

// was not an adi generic so check the adt list 
if(adt— adt_usage()^update(this_type_name)==FALSE) 
{ 

// was not an adt adt so put it in its local list 

// based on whether or not it is recognized 
if(this_type_name-^recognized()==FALSE) 

{ 

// was unrecognized so try to update 
If the unrecognized list or add it to 
II the list 

if(unrecognized_type_usage()— 

update(this_tvpejiame)== FALSE) 

{ 

// not yet in list so add it 
unrecognized .type .usage ()-^ 
add_type(this_type_name— id(), 
this_type_name); 

// now update it for being used once 
unrecognized _t.ype_usage()— 
u pdate(this_tvpe_name); 

}; 

} 

else 

{ 

// this type name is recognized so update 
/ / or add it 

if(recognized_type_usage( )— 

update(t his -type Jiame)== FALSE) 

{ 

// not yet in list so add it 
recognized .type _usage() — 

add_type(this_tvpe_name-^id(), 

thisJype_name); 

// now update it for being used once 
recognized_type_usage()— * 
update(thisJ.ype_name); 

}; 

}: 

}; 

}; 

Dictionary Iterator next .output =out put _attrilnites()—dditerator(); 
wliile(next_output.moreData( )) 



{ 

SBJD_DECL *this_decl=(SB JDJDECL *)(Entity *)next_output() 
SB_TYPE_NAME *this_t.ypejiame==this_decl— ►type_name(); 

// first see if this id.decl type is a generic 
if(generic_usage() — *update(this_type _name)==FALSE) 

{ 



// was not a generic type check the ADT generic list 

if(adt— generic_usage()— ►updat.e(this_tvpe_name)==FALSE) 

{ 

// was not an adt generic so check the adt list 
if(adt.— adtaisage()^update(this_type_name)==FALSE) 

{ 



/ / was not an adt adt 

// so put it in its local list 

// based on whether or not it is recognized 

if(this_tvpe_name — recognized()== FALSE) 

{ 

// was unrecognized so try to update 
II the unrecognized list or add it to 
II the list 

if(unrecognized_type_usage()-^ 

update(this_type _name)==FALSE) 

{ 

// not yet in list so add it 
u n recogn i zed _ty pe _usage( ) — * 
add_type(this_type_name— dd(), 
this_type_name); 

// now update it for being used once 
unrecognized Jype_usage()-^ 
update(this.typejiame); 

}; 



// now update the adt list as well 

if( adt — unrecognized_type_usage()— ► 
update(this_type_name)== FALSE) 

{ 

// not yet in list so add it 
adt— unrecognized_type_usage()-^ 
add_tvpe(this_type_name— dd(), 
this_type_name); 

// now update it for being used once 
adt.— unrecognized -type- usage()— ► 
update(thisJ.ypejiame); 



} 
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else 

{ 

// this type name is recognized so update 
// or add it 

if(recognized_type-usage()^ 

update(this Jype-name)==== FALSE) 

{ 

// not yet in list so add it 
recognized _type_usage()— ► 

add_type(this_type.name— >id(), 
this_type_name); 

// now update for being used onece 
recognized _type_usage()— + 
update(this_tvpejiame); 

}; 

// now update the adt usage list 
if(adt — recognized_type_usage()— 
update(this_tvpe_name)==FALSE) 

{ 

// not yet in list so add it 
adt — recognized_type_usage()— ► 
add_type(this_type_nanie^id(), 
this-type-name); 

// now update for being used onece 
adt-^recognized_type_usage()— ► 
update(this_typejianie); 



}: 



}; 



}; 



}; 



return TRUE; 



}: 
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#include ’’sball.hxx 



# include ” sbextern . h" 



SB_ADT.OPERATOR -DICTION ARY: :SB^\DT_OPERATOR-DICTIONARY(APL *theAPL) : 
Dictionary (theAPL) 

{ 

}; 



SB_ADT.OPERATOR-DICTIONARY::SB_ADT_OPERATOR-DlCTIONARY() : Dictionary 
(OCJnteger, // key 

SB_ADT.OPERATO 

TRUE, 

TRUE) 

{ 

}; 

void SB_ADT_OPERATOR-DIC’TIONARY::Destrov( Boolean aborted) 

{ 

Dictionary Herat or next _operator( t his ) ; 
while(next .operator. moreDat a( )) 

{ 

((SB-ADT_OPERATOR *)(Entitv *)next_operator())— ■ ►Destroy(aborted); 

}; 

Dictionary : : Dest roy ( aborted ) ; 

}; 



void SB _A DT.OPE R ATOR -DICTION A RY::deleteObject( Boolean deallocat e) 

{ 

Dictionary Iterator next _operator( this); 
wliile(next .operator. moreDat a( )) 

{ 

(( SB _ADT -OPERATOR *)( Entity *)next_operator())— >deleteObject( FALSE); 

}; 

Dictionary: :deleteObject( deallocate); 

}; 

void SB_ADT-OPERATOR-DICTIONARY::putObject( Boolean deallocate) 

{ 



Dictionarylterator next-operator(this); 
wliile( next .opera tor. moreDat a()) 

{ 

((SB.ADT .OPERATOR *)( Entity *)next .opera tor())-^putObject (deallocate); 

}; 



Dictionary ::put Object (deallocate); 



}; 



Type *SB_ADT-OPERATOR-DICTIONARY::getDiiectType() 

{ 

return SB_ADT.OPERATOR_DICTIONARY.OType; 

}; 

void SB-ADT.OPERATOR.DICTIONARY::add(SB_ADT-OPERATOR *op) 

{ 



Insert (op — num Jnputs(),op); 

}; 



void SB_ADT_OPERATOR_DICTIONARY::append(SB_ADTX)PERATOR-DICTIONARY 
♦new _dict) 

{ 

// get an iterator for the dictionary then insert each operator into 
// the dictionary. Finally delete the input dictionary 

Dictionarylterator next_operator=new_dict— dt-eratorQ; 
wliile( next .opera tor. moreDa t a( )) 

{ 

SB_ADT_OPERATOR *the_operator= 

(SB_ADT_OPERATOR *)( Entity *)next_operator(); 
tli is— add(the.operator); 

}; 

next-opera tor. Reset ( ); 

// destroy the dictionary new.dict hut not its members 
new .diet ■ — ►Dictionary:: Destroy (FALSE); 

}; 



void SB_ADT_OPERATOR-DICTIOi\ T ARY::printOn(ofstream&: outstream) 

{ 

Dictionarylterator next _operator=iterator(); 

while( next .operator. moreDat a( ) ) 

{ 

((SB_ADT_OPERATOR *)( Entity *)next _operator())— >printOn(outstream); 

}; 



}; 



int SB_ADT_OPERATOR_DICTIONARY::num() 

{ 



return (int )Cardinalitv(); // cast to int (no need for long) 

}; 
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int SB_ADT_OPERATOR-DICTIONARY::totalJnputs() 

{ . 

int total=0; 

Dictionarylterator next_operator=iterator(); 

whiIe(next_operator.moreData()) 

{ 

total=total -f 

((SB_ADT_OPERATOR *)( Entity *)next_operator())— >num _inputs() 

}; 

return total; 

}; 



int SB-ADT-OPERATOR -DICTION A RY::totaLoutputs() 

{ . 

int total=0; 

Dictionarylterator next _operator=iterator(); 

whiIe(next_operator.nioreData( )) 

{ 

total=total -f 

((SB.OPERATOR % )( Entity * )next_operator()) — num_outputs(); 

}: 

return total; 

}; 



Dictionarylterator SB^\DTX)PERATOR_DICTIONARY::iterator() 

{ 

return Dictionarvlterator((Dictionarv *)this); 

}; 



HO 



# include ” sball . hxx" 



# include ”sbextern .h" 



SB_COMPOi\ t ENT::SB_COMPONENT(APL ★ theAPL) : Object(theAPL) 

{ 

}; 

SB.COMPONENT::SB.COMPONENT(char *id) : Object() 

{ 

the_component_name=new char[strlen(id)+l]; 
strcpy(the_component_name,id); 

SB_KEYWORD_DICTIONARY ★new .key word .dictionary =new 
SB .KEY WORD-DICTION A RY( ); 

the-key \vord_dict ion ary =ne\v _kev word -dictionary — findTRef(); 



SB-TEXT-OBJECT ★ne\v.psdl_text=new S B -TEXT -OBJ ECT ( ) ; 
t he.psd 1 _t ex t .= n e w -psd 1 _t ex t — fi n d T R ef ( ) ; 

SB-TEXT-OBJECT ★iiew_impj3pec_text=new SB-TEXT.OBJECT(); 
theJmp-spec .text .=ne\v impjspec .text- — findTRef(); 

SB-TEXT-OBJECT ★new jmp_body-text=new SB.TEXT.OBJECT(); 
the jmp_body_t.ext=new Jmp_body_text-->findTRef(); 

SB-TEXT-OBJECT ★new Jnfonnal.descript.ion=new SB-TEXT-OBJECT(); 
the-informal_description=new.informal_description— ►findTRef(); 

SB.TEXT.OBJ ECT ★new Jbrmal_description=iiew SB_TEXT_OBJECT(); 
the_formal_description=new .formal-description— »findTRef(); 

SB_TEXT_OBJECT ★new -norm _formal_description=new SB-TEXT_OBJECT() 
the-iiorm -formal-description =new.norni-forniaLclescription— *findTRef(); 

SB-TYPE.USAG E-DICTION ARY ★new .recognized -t.ype_usage= 
new SB-TYPE.US AGE_DICTION ARY(); 
the_recognized-type_usage=new .recognized .type .usage— *findTRef(); 

SB-TYPE.US AGE-DICTION ARY ★new .unrecognized _t.ype_usage= 
new SB_TYPE_USAG E-DICTION ARY(); 
the.un recognized -type jusage=new junrecogn ized -type oisage-^findT Ref( ) ; 

SB.TYPE.USAG E-DICTIONARY ★new .gene r i c _u sage = n e w 
SB.TYPE.USAG E-DICTION A RY(); 



the_generic_usage=new .generic aisage — findTRef(); 



}; 



void SB.COMPONENT::Destrov( Boolean aborted) 

{ 

psdLtext ( ) — ► Destroy ( aborted ) ; 
imp_specJ ext ()— Destroy (aborted); 
imp_body.text( ^Destroy (aborted); 
inforniaLdescription()^Destroy(aborted); 
formal-description ()—► Destroy (aborted); 
norni-formal_description()-^Destroy (aborted); 
recognized _type_usage()— ►Destroy (aborted); 
unrecognized _type-usage()—>> Destroy (aborted); 
keyword-diet ionary ()— Destroy (aborted); 
generic_usage() — Destroy (aborted); 

delete the.component.name; 
delete the .key word .diet ion ary ; 
delete the.psdl.text; 
delete the Jmp_spec_text ; 
delete the Jnip.body.text ; 
delete theinfonnaLdescription; 
delete the -formal-description; 
delete theaiorni.formaLdescription; 
delete the_recognized_tvpeaisage; 
delete the.un recognized -type .usage; 
delete t lie-generic .usage; 



Object "Destroy (aborted); 

}; 



void SB.COM PON ENT::deleteObject( Boolean deallocate) 

{ 

psdl_text() — deleteObject( FALSE); 
imp.spec.text( )— deleteObject,( FALSE); 
imp_body_text()—de]eteObject( FALSE); 
informal.description( )^deleteObject( FALSE); 
forniaLdescription()—deleteObject( FALSE); 
norm_formaLdescription()— deleteObject(FALSE); 
recognized _type_usage()—^deleteObject (FALSE); 
unrecognized -type_usage()^deleteObject( FALSE); 
key word .diet ionary () — deleteObject (FALSE); 
generic-usage()—deleteObject( FALSE); 

Object: :deleteObject( deallocate); 

}; 



void SB_COMPONENT::putObject(Boolean deallocate) 
{ 



psdl.textQ— put Object (deallocate); 
iinp-spec.text()— put Object (deallocate); 
imp_body_t ext ()— put Object (deallocate); 
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informaLdescription()— ►putObject(deallocate); 
formaLdescriptionQ-^putObject (deallocate); 
norm_formaLdescription()— putObject(deallocate); 
recognized _type_usage()-—>putObject (deallocate); 
unrecognized J.ype_usage()^putObject(deallocate); 
keyvvord_dictionary()— ►putObject(deallocate); 
generic_usage()^putObject(deallocate); 

Object ::putObject(deallocate); 

}; 



SBJxEYWORD-DICTIONARY *SB.COMPONENT::keyword.dictionary() 

{ 

return ((SB JvEY\VORD_DICTIONARY *)(the_keyword_dictionary— ►BindingQ)); 

}; 

SB.TEXT.OBJECT *SB.COMPONENT::psdlJext() 

{ 

return((SB-TEXT.OBJECT *)(the_psdl_text— BindingQ)); 

}; 

SB.TEXT.OBJECT *SB.COMPONENT::imp.spec.text() 

{ 

return((SB_TEXT-OBJECT *)(the_imp_spec_text--+Binding())); 

}; 

SB.TEXT.OBJECT *SB_COMPONENT::imp.bodv.text() 

{ 

return((SB_TEXT_OBJECT *)(theJmp_bodv_text— Binding())); 

}; 



SB.TEXT.OBJECT *SB.COiMPONENT::informaLdescription() 
{ 



return((SB_TEXT-OB.JECT * )(the_informaLdescription— *Binding())); 

}; 

SB.TEXT.OBJECT *SB.COMPONENT::formaLdescription() 

{ 

return((SB_TEXT_OBJ ECT *)(theTormal.description— >Binding())); 

}; 

SB.TEXT.OBJECT *SB-COMPONENT::iiomi_formaLdescription() 

{ 



}; 



returii((SB_TEXT_OBJECT *)(thejiorm_formaLdescription— + 

Binding())); 



SB.TYPE.USAGEJDICTIONARY* SB.COM PONENT: recognized .type _usage() 

{ 

return (SB.TYPE.USAG EVICTION ARY*) 
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the_recognized .ty pe.usage— Binding( ); 



}; 

SB.TYPE.USAGEDICTIONARY* SB.COM PON ENT: unrecognized .type jusageQ 

{ 

return (SB.TYPE.USAGE .DICTIONARY*) 
the.unrecognized Jtvpe .usage— Binding(); 

}; 

SB.TYPE.USAGE DICTIONARY* SB.COMPONENT::generic.usage() 

{ 

return (SB.TYPE.USAGE_DICTIONARY*)the.generic jusage— ►BindingO; 

}; 

Boolean SB.COM PONENT::add_kev\vord(char *key\vord) 

{ 

return kev\vord_dictionarv( )— *add(kev\vord); 

}; 



int SB.COM PON ENT: :num.unrecognized.tvpes( ) 

{ 

return int(imrecognized_tvpe_usage( ) — num()); 

}; 

int SB.COMPONENT::totaLtvpes( ) 

{ 

return num.unrecognized _tvpes( )+ 
recognized .tvpe_usage() — num( ); 

}; 



void SB.COMPONENT::insert_generics( SB.TYPE.USAGE .DICTIONARY *new_generic .usage) 

{ 

if ( new .generic _u sa ge^ NULL) 

{ 

SB_COMPONENT::generic_usage() — append(new .generic jusage); 

}; 

}; 

char *SB_COMPONENT::coinponent_name( ) 

{ 

return the.component .name: 

}; 

void SB_COMPONENT::add.text(ifstream& psdl, ifstream& spec, ifstreamfc body) 

{ 

psdl_text() — append(psdl); 
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imp_spec_text()— append(spec); 
impJbody_text()— >append(body); 



# include v sball . hxx" 

# include ’’sbextern . h" 



SB_COMPONENT_DICTIONARY::SB_COMPONENT.DICTIONARY(APL *theAPL) : 
Dictionary(theAPL) 

{ 

}; 

SB-COMPONENT -DICTION ARY::SB.COMPONENT_DICTION ARY () : Dictionary 
(OC-string, // KEY 

SB-COMPONENT -OType 
TRUE, 

FALSE) 

{ 

}: 

Type *SB.COMPONENT_DICTIONARY::getDirectType() 

{ 

return SB.COM PONENT-D1CTION ARY .OTvpe; 

}; 

void SB.COM PON ENT.DICTION A RY::Destrov( Boolean aborted) 

{ 

// first destroy all of the references in the dictionary 

Dictionarylterator next .component (this); 

while(next .component .moreDataQ) 

{ 

((SB.COMPONENT *)(Entitv *)next .component())— ►Destroy(aborted); 

}: 

Dictionary:: Destroy (aborted); 

}; 

void SB.COM PON ENT.D1CT10N ARY: :deleteObject( Boolean deallocate) 

{ 

// first delete all of the references in the dictionary 

Dictionarylterator next .component (this); 

while(next_component. moreDataQ) 

{ 

((SB.COMPONENT *)( Entity *)next_component())^deleteObject(FALSE); 

}; 

Dictionary: :deleteObject (deallocate); 
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}; 

void SB.COM PONENT_DICTIONARY:;putObject(Boolean deallocate) 

{ 

// first put all of the references in the dictionary 

Dictionarylterator next_component(this); 

while(next_component.moreData()) 

{ 

((SB-COMPONENT *)( Entity *)next_component())— ►putObject(deallocate); 

}; 

Dictionary: :put Object (deallocate); 

}; 



Boolean SB-COMPONENT .DICTION ARY::add(SB_COMPONENT * new .component) 

{ 

Boolean return-flag; 

if( Dictionary ::isIndex(new_component— ^component _name())== FALSE) 

{ 

// keyword is not yet tn the dictionary so insert it 

Dictionary ::Insert(ne\v .component— component_name(),new_ component); 
return_flag=TRUE; 

} 

else 

{ 

return _flag= FALSE; 

}; 

return return .flag: 

}; 

SB-COMPONENT *SB_COMPONENT -DICTIONARY::query(char *name) 

{ 

SB-COMPONENT *return_component=NULL; 

if( Dictionary ::isIndex(name) ==T RUE) 

{ 

return _component=( SB-COMPONENT *)( Entity* )(* this) [name]; 

}; 

return return-component; 

}; 

void SB.COM PON ENT.DICTION A RY;:printOn(ofstream& outstream) 

{ 
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Diet ionary It era tor next ,j Component- 
Dictionary It erator( this); 

while(next_component .moreDataQ) 

{ 

int i; 

SB_COMPONENT *thexomponent=(SB_COMPONENT *)(Entity *)next _component(); 
out stream the.component— component_name(); 

for(i=strlen(the_component— component_name());i < DEFAULT.NAMEJSIZE; iH — P) 

{ 

outstream <C " 

}; 

outstream <C " 

char *infomiaLdesc=(thexomponent— dnformaLdescription())— dextO; 

i=0; 

while(informaLdesc[i]^NULL inforniaLdesc[i]^’\n’) 

{ 

outstream <C informaLdesc[i]: 

i++; 

}; 

outstream <C "\n M ; 

}; 
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# include ” sball . hxx" 

# include ” sbextern .h' 



SB.EXCEPTION .DICTION ARY: .SB.EXCEPTION .DICTION A RY( A PL *theAPL) : 
Dictionary(theAPL) 

{ 

}; 

void SB.EXCEPTION JDICTION ARY: :Destroy( Boolean aborted) 

{ 

Dictionarylterator next .except ion( this); 
wliile(next_exception .moreDat a( )) 

{ 

delete (char *)next.exception(); 

}; 

Diet ionary:: Destroy (aborted); 

}; 

void SB. EXCEPTION .DICTION A RY::deleteObject( Boolean deallocate) 

{ 

Dictionary: ideleteObject (deallocate); 

}; 

void SB_EXCEPTION_DICTIONARY::putObject(Boolean deallocate) 

{ 

Dictionary: :putObject( deallocate); 

}; 

Type +SB.EXCEPT10N JDICTION ARY: :get Direct Tvpe() 

{ 

return SB.EXCEPTION_DICTIONARY.OTvpe; 

}; 



SB.EXCEPT10NJDICTI0NARY::SB.EXCEPTI0NJDICTI0NARY() : Dictionary (OCjstring, 
// KEY 

OCjstring, 

TRUE, 

FALSE) 

{ 

}; 



Boolean SB.EXCEPTION- DICTION A RY::add( char ^exception Jd) 

{ 



149 



Boolean ret urn .flag; 



if( Dictionary ::isIndex(exceptionJd)= = FALSE) 

{ 

// exceptionJd is not yet in the dictionary so insert it 
Dictionary::Insert (exception Jd, M "); 
return _flag=TRUE; 

} 

else 

{ 

return _flag= FALSE; 

}; 

return return.flag; 

}; 

Boolean SB.EXCEPTION J3ICTIONARY::append(SB_EXCEPTION DICTIONARY 
♦ dictionary) 

{ 

Boolean return _flag=TRUE; 

Diet ionary Iterator next Jd=dict ionary — iteratorQ; 

wliile(next_id.nioreData() return_fiag==TRUE) 

{ 

if(add((cliar *)next Jd( ))==FALSE) 

{ 

return _flag=FALSE; 

}; 

}; 

dictionary — Destroy (FALSE); // delete the object and deallocate 
return ret urn -flag; 

}; 



void SB JCXCEPTION -DICTION ARY::printOn(ofstream& outstream) 

{ 

Dictionary Iterator next_exception=iterator(); 

while(next_exception.moreData( )) 

{ 

outstream <C (char *)next_exception( ) <C "\n"; 

}; 

}; 
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Dictionarylterator SB.EXCEPTION _DICTIONARY::iterator() 

{ 

// use tagiterate since tag is the data 
return DictionarvIterator(tliis,TRUE); 

}; 



# include shall. hxx 



# include ” sbextern.h'’ 

SB JD_DECL::SBJD.DECL(APL *theAPL) : Object(theAPL) 

{ 

}; 



SB JD_DECL::SB_ID_DECL(cliar *new_theJd, 

SB.TYP E-NAME * new .type .name): 
Object () 

{ 



the_id=iiew cliar[strlen( new.t he _id )-f 1] ; 
strcpy(the id, new .the jd); 

the_typejiame=ne\v .type-name — findTRef(); 



}; 

void SB.ID_DECL::Destrov(Boolean aborted) 

{ 

if(the.id^NULL) 

{ 

delete theid; 

}; 



ty pejiamef ) — Destroy (aborted ) : 



Object : : Dest rov( aborted ) ; 

}; 

void SB_ID_DECL::deleteObject(Boolean deallocate) 

{ 

type_name()^deleteObject( FALSE); 



Object ::deleteObject( deallocate); 

}; 

void SB JD_DECL::putObject( Boolean deallocate) 

{ 

tvpe_name()— put 01) ject( deallocate); 



Object ::put Ob ject(deallocate); 

}; 



SB-TYPE.NAME *SBJD.DECL::t.ype-name() 

{ 

return ((SB.TYPE.NAME *) (the_type_name— *Binding())) 

}; 



Type *SB_ID_DECL::getDirectType() 

{ 

return SB JD.DECL.OType; 

}; 

void SBJD_DECL::printOn(ofstream& outstream) 

{ 

outstream <C theJd <C M : 
type_name()— sprint On(outstream); 

}; 



char *SBJD-DECL::id() 

{ 



return theJd; 



# include ’’sball.hxx 



# include ” sbextern . h” 

SB JD_DECL_DICTIONARY::SBJD_DECL_DICTIONARY(APL *theAPL) : Object(theAPL) 

{ 

}; 



SB JD-DECL-DICTIONARY::SB.ID.DECL_DICTIONARY() : Object() 

{ 



Dictionary *new .dictionary _by_type= new Dictionary(SB_TYPE-NAME.OType, 

SB JD-DECL.OType, 
TRUE, 

TRUE); 



t lie-dictionary .by _type=new_ diet ionary .by -type — findTRef(); 



Dictionary *new_dictionary_by.id= new Dictionary(OC.string, 

SB JD.DECL.OType, 
TRUE, 

FALSE); 



the.dictionary . by .id=new .dictionary. by Jd—findTRef(); 

List *newJd_declaration.list=new List) SB JD.DECL.OType); 



theJd-declaration.list=newJd-declarationJist— ►findTRef)); 



}; 



void SBJD.DECL.DICTIONARY:: Destroy) Boolean aborted) 

{ 



Listlterator next id_decl(id .declaration JistQ); 
while(nextJd_decl.moreData()) 

{ 

((SBJD-DECL *)(Entity *)next Jdjdecl())— Destroy(aborted); 

}; 



dictionary_by_type()— - Destroy (aborted); 
dictionary.byJd()^Destroy(aborted); 
id_declaration_list() — Destroy (aborted); 

delete the_dictionary_bv_type; 
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delete the_dictionary_by id; 
delete theid_declaration_list; 

Object:: Destroy (aborted); 



}; 



void SBJD.DECL_DICTIONARV::deleteObject( Boolean deallocate) 

{ 

Listlterator next Jd_decl(id_declaration_list( )); 
while(next Jd_decl.moreData()) 

{ 

((SB JD_DECL *)( Entity *)nextid_decl())^deleteObject( FALSE); 

}; 



dictionary_by_type()— deleteObject( FALSE); 
dictionary_by_id() — deleteObject( FALSE); 
id_declaration_list()—deleteObject( FALSE); 

Object: :deleteObject( deallocate); 



}; 



void SB JD_DECL_DICTIONARY::putObject( Boolean deallocate) 

{ 



Listlterator nextid_decl(id_declarationiist()); 
while(nextJd-decl.moreData()) 

{ 

((SBJD.DECL *)(Entity *)next Jd_decl())-+putObject(deallocate) 

}; 



dictionary_by_type()— ►putObject (deallocate); 
dictionary_by_id() — putObject(deallocate); 
id_declaration_list()—putObject( deallocate); 

Object ::putObject( deallocate); 



}; 



Type *SBJD.DECL-DICTIONARY::getDirectTvpe() 

{ 

return SB JD.DECL.DICTIONARY.OType; 

}; 

Dictionary *SB JD_DECL_DICTIONARY::dictionary_by_type() 

{ 

return (Dictionary *)(the_dictionary_by_type — BindingQ); 

}; 



Dictionary *SB JD.DECL JDICTIONARY::dictioiiary.by.id() 



{ 

return (Dictionary *)(the_dictionary_byJd— ■ *Binding()); 

}; 

List *SBJDJ)ECL-DICTIONARY::id-declarationJist() 

{ 

return (List *)(the^id_declaration_list— Binding()); 

}; 

Boolean SB JD.DECL.DICTIONARY::add.decl(SB JD.DECL *dec'l) 

{ 

Boolean returiuflag; 



if(dictionary_bv_id() — islndex(decl— dd())==FALSE) 

{ 

// ID NOT YET USED 

dictionary _by_type()— Insert.(decl— ►type_name(),decl); 



dictionary _by_id() — Insert (decl— id(),decl); 



id_declarationJist( )— Insert(decl); 



return _flag=TRUE; 

} 

else 

{ 

// id already in use so can not insert 
return -flag— FALSE; 

}; 

return return Jiag; 

}; 

void SBJD-DECL-DICTIONARY::remove-decl(SB_ID.DECL *decl) 

{ 

dictionary_by_type()— * Remove(decl— typejiame(),decl); 



dictionary_by_id( )— *Remove(decl— ud(),decl); 



id_declarationJist ()—+ Remove( id-declaration Jist()—* ►Index(decl)); 
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}; 



Boolean SB JD.DECL.DICTlONARY::add_decl(char *id,SB_TYPE.NAME *type_name) 

{ 

Boolean return-flag; 



if(dictionary_by_id()— +isIndex(id)==FALSE) 

{ 

// ID NOT YET USED 
// create new SB. ID. DECL 

SBJD.DECL *decl=new SB JD_DECL(id, type-name); 



dictionary _by _type( ) — Insert(type_name,decl); 



dictionary _by_id() — Insert ( id, decl); 



id_declaration_list( )— -Insert( decl ) ; 



return _flag=TRUE; 

} 

else 

{ 

// id already in use so can not insert 
return _flag=FALSE; 

}; 

return return_flag; 

}; 



Boolean SBJD_DECL_DICTIONARY::append(SB_ID_DECL_DICTIONARY ^dictionary) 

{ 

Boolean return Jiag=TRUE; 

Listlterator next Jd=dictionary — order _iterator(); 

while(nextJd.moreData() return_flag==TRUE) 

{ 

SBJDJDECL *this_decl=(SB JD_DECL *)(Entity *)next_id(); 
return _flag=add_decl( this.decl ); 

} 
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/* next -id. Res et(); 
while( next-id. moreD at a()) 

{ 

SBJD-DECL *this-decl=(SBJDJ)ECL *)(Entity *)nextJd(); 
dictionary-> remove-decl(this-decl); 

}-• 

dictionary^ Destroy (FALSE);*/ 
return return -flag; 

}; 



void SB JD_DECL_DICTIONARY::printOn(ofstream& outstream) 

{ 

Listlterator next-decl=order_iterator( ); 
if( next.decl . more Data ( ) ) 

{ 

((SBJD-DECL *)( Entity *) next._decl())— printOn(outstream); 

while(next_decl.moreData()) 

{ 

outstream " , \n"; 

((SBJD-DECL *)( Entity *) next-decl())^printOn(outstream); 

}; 

}; 

}; 

int SB JD-DECL.DICTIONARV::num() 

{ 

return (int)(dictionarv_by-tvpe()— Cardinality()); 

}; 

Dictionarylterator SB JD_DECL_DICTIOi\ T ARY::id JteratorQ 

{ 

return DictionaryIterator(dictionary-bvJd()); 

}; 

Dictionarylterator SB JD.DECL.DICTION ARY:: type JteratorQ 

{ 

return DictionaryIterator(dictionary_by_type( )); 

}; 



Listlterator SB JD-DECL-DlCTIONARY::order_iterator( ) 

{ 

return ListIterator( id-declaration Jist( ) ) ; 

}; 



SBJD-DECL *SB JD_DECL_DICTIONARY::quervJd(char *query_name) 

{ 
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SBJD-DECL *return_value=NULL; 
if(dictionary_by_id()— dslndex(query.naine)) 

{ 

return_value=(SB JD_DECL *)(Entity *)dictionary_by_id()— *• 
get Entity Element(querv -name); 

}; 

return return .value; 

}; 
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# include ” shall . hxx” 

# include ’’sbextern.h 



SB J\EY WORD DICTIONARY: :SB. KEYWORD .DICTION A RY( A PL *theAPL) : 
Dictionary(theAPL) 

{ 

}; 

SB Jv EY WORD-DICTION ARY ::SB_KEY WORD-DICTION ARY() : Dictionary (OCjstring, // 
A 'EY 

OC-string, 

TRUE, 

FALSE) 

{ 

}; 

Type *SB.KEYW0RD-DICT10NARY::getDirectType() 

{ 

return SB.KEYWORD-DICTIONARY.OTvpe; 

}; 

void S B -K E Y WO R D -D I CT IONA R Y : : Dest roy (Boolean aborted) 

{ 

Dictionary: Destroy (aborted); 

}; 

void SB_KEYWORD_DICTIONARY::deleteObject(Boolean deallocate) 

{ 

Dictionary ::deleteObject( deallocate); 

}; 

void SB_KEYWORD_DICTIONARY::putObject(Boolean deallocate) 

{ 

Dictionary: :putObject (deallocate); 

}; 

Boolean SB_KEYWORD_DICTIONARY::add(char ^keyword) 

{ 

Boolean return-flag; 

if(Dictionary: :islndex(key word )== FALSE) 

{ 

// keyword is not yet in the dictionary so insert it 

Dictionary: :Insert( keyword,""); 
return _flag=T RUE; 

} 

else 

{ 

return Jlag= FALSE; 
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}; 

return return .flag; 

}; 

void SB_KEYWORD_DICTIONARY::printOn(ofstream& outstream) 

{ 

Dictionarylterator next Jceyword=iterator( ); 

while( next-key word. moreData()) 

{ 

outstream <C (char *)next_keyword() <C ”\n M ; 

}; 

}; 



Dictionarylterator SB.KEYWORDJ)ICTIONARY::iterator() 

{ 

// use tagiterate since tag is the data 
return Dictionarylterator (this, TRUE); 

}; 
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#include ”sball .hxx” 
#include ” sbextern. h 1 



SB_KEYWORD_LIBRARY::SB_KEY\VORD-LIBRARY(APL *theAPL) : Dictionary(theAPL) 

{ 

}; 

SB-KEYWORD.LIBRARY::SB.KEYWORD.LIBRARY() : 

Dictionary(OC jstring, SB.COM PON ENTJ)ICTION ARY .OTvpe, TRUE, FALSE) 

{ 



}; 



void SB_KEY\VORD_LIBRARY::query(ifstream&: instream, ofstream& outstream) 

{ 

char the.keyword[256]; 

Dictionary *the_resiilt=iiew 
Dictionary (OC-st ring, OCJnteger, FALSE, FALSE); 



while(!instream.eof( )) 

{ 

instream theJceyword; 

instream ws; // get the newJine character or eof 
if( this— islndex(the_key word )==TRUE) 

{ 

SB.COMPONENT-DICTIONARY *the_component_dictionary= 
(SB-COMPONENT .DICTIONARY *) 
this— *getEntityElement(the_key word); 

Dictionary Iterator next_component= 

Dictionary Iterator(the_component_dictionary); 

// update the result dictionary 



1 ; 



whiie(next_component.moreData()) 

{ 

SB.COMPONENT *the_component=(SB_COMPONENT *) 

(Entity *)next_component(); 
char *the_component_name; 

the_component_name=the_component— ‘ ►component.name(); 
if(the_result — 

isIndex(the_component-name)==TRUE) 

{ , 

int new_number= int ( 

the_result^getIntegerElement(the_component_name))- 

the_result— Remove(the_component_name); 
the-result — 

Inser t ( t li e .com p o nen t _n am e , n e w _nu mber ) ; 

} 

else 

{ 
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}; 



}; 



}; 



the_result — Insert( the -component Jiarne,-!); 

}; 



// create new dictionary ordered by number of times found 
Dictionary *final_result=new 

Dictionary (OCjnteger,OC.string, TRUE, TRUE); 

Dictionarylterator next _result= Dictionary I terator(the -result); 

Dictionary Iterator next jesult_tag=DictionaryIterator(the Jesuit, TRUE); 
while(next_result.moreData()) 

{ 

char *component=(cliar *)next jesult.tagQ; 

int times_used=int(next jesultQ); 

final jesult—Insert( times .used, component); 



}; 

Dictionarylterator next Jinal_result= Dictionary I terator(final Jesuit); 
while(next_finaLresuIt.moreData()) 

{ 

char* component _name=(char *)next_finaLresult(); 

SB.COM PONENT *the.component — SB J\I AIN -LIBRARY— query (component .name) 

// SBMAIN-LIBRARY IS GLOBAL 

int i; 

outstream <C the.component— ►component _name(); 

for(i=strlen(the_component— componentJiame());i < DEFAULT .NAME.SIZE; i++) 

{ 

outstream <C " "; 

}; 

outstream " "; 

char *informaLdesc=( the.component— ►informaLdescriptionQ)— >text(); 
i— 0; 

while(informaLdesc[i]^NULL kk informaLdesc[i]^’\n 5 ) 

{ 

outstream informaLdesc[i]; 

i++; 

}; 

outstream <C "\n"; 

}; 

the Jesuit— >Destroy(); 
final Jesuit— Destroy (); 



Boolean SB .KEYWORD _LIBRARY::add_component(SB_COMPONENT *new_component) 

{ 

SB .KEYWORD -DICTIONARY* keyword _list=new_component— key word .dictionary (); 
Dictionarylterator next _keyword=key word Jist— iteratorQ; 
while(nextJceyvvord.moreData()) 

{ 

char *the.key word=(char *)next _keyword(); 
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if( this— ^islndex(the_key word) ==TRUE) 

{ 



SB.COMPONENT-DICTIONARY 
*the.dictionary=(SB.COMPONENT -DICTIONARY *) 
this— *get Entity Element(the_key word); 
the_dictionary— add(new_component); 
the .dictionary— Diet ionary ::putObject(); 

} 

else 

{ 

// this is a new keyword so make a new sb.component.dict 
// and add it to the key. word library 
SB_COMPONENT_DICTIONARY* new_dictionary=:new 
SB-COMPONENT JDICTIONARYQ; 
nevv-dictionary— ►add(nevv .component); 
new -dictionary— Dictionary: :putObject(); 
this — Insert(the_kev word, new -dictionary); 

}; 



return TRUE; 

}; 



void SB-KEYWORD_LIBRARY::delete_component(SB_COMPONENT *the_component) 

{ 

SB_KEYWORD_DICTIONARY* keyword Jist=the-component— ►keyword-dictionaryQ; 
Dictionarylterator next-key word=key word .list- iterator(); 
while(next_keyword.inoreData()) 

{ 

char *the-keyword=(char *)next_keyword(); 
if( t his— islndex( t he.key word ) = =T RU E ) 

{ 



SB-COMPONENT-DICTIONARY 
*the.dictionary=(SB.COMPONENT -DICTIONARY *) 
this— get Entity Element(the_key word); 
the.dictionary- Remove(the_component— component_name()); 
the_dictionary— putObject(); 
if(the-dictionary— 'Cardinality ()==0) 

{ 

this— ►Remove(the_key word); 
the.dictionary — deleteObject(TRUE); 

} 



}; 



}; 



void SB -KEYWORD-LIBRARY:: Destroy( Boolean aborted) 

{ 
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Dictionarylterator next_component_dictionary=iterator(); 
while(next_component_dictionary.moreData()) 

{ 

((SB_COMPONENTJDICTIONARY *)( Entity *)next .component .dictionary ()) 
Destroy (aborted); 

} 

Dictionary :: Destroy (aborted); 



void SB_KEY\VORD_LIBRARY::deleteObject(Boolean deallocate) 

{ 

Dictionarylterator next_component_dictionary=iterator(); 
while(next_component_dictionary.moreData()) 

{ 

((SB COMPONENT -DICTION ARY *)( Entity *)next .component. dictionary ()) 
deleteObject( FALSE); 

} 

Dictionary::deleteObject (deallocate); 

}; 



void SB_KEYWORD_LIBRARY::putObject(Boolean deallocate) 

{ 

Dictionary ::putObject( deallocate); 

}; 

Dictionarylterator SB _KEYWORDXIBRARY::iterator() 

{ 

return DictionaryIterator(this,TRUE); // return tag iterate 

}; 

void SB_KEYWORD_LIBRARY::list(ofstream& outstream) 

{ 

Dictionarylterator next -key word=iterator( ) ; 
while(next_keyword.moreData()) 

{ 

outstream <C (char *)next._keyword() <C "\n"; 

} 

}; 
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# include ” sball . hxx 



# include ’’sbextern.h” 

SB_LIBRARY::SB_LIBRARY(APL *theAPL): Object(theAPL) 

{ 

}; 

SB_LIBRARY::SB-LIBRARY(char *name, char stable) : Object(name) 

{ 

SB-COMPONENT-DICTIONARY *new.component_dictionary= 
new SB-COMPONENT _DICTIONARY(); 

the_component_dict ionary = 

new-component .dictionary—^ ►findTRef(); 

the_recognized_types=NULL; 

update-recognized _types( table); 



SB_OPERATOR-COMPONENT .LIBRARY *new-operator-component_library= 
new SB_OPERATOR_COMPONENT_LIBRARY(); 

the_operator_component -library = 

new.operator.component -library —*findTRef(); 

SB-ADT_COMPONENT_LIBRARY *new-adt_component_library=new 
SB-ADT_COMPONENT_LIBRARY(); 

the.ad t .component-library =new_adt_componentJibrary^findTRef(); 

SB-KEYWORD.LIBRARY *ne\v -keyword _library=new 
S B _K E Y WO R D -L I B R A RY( ) ; 

the_keyword -library =new -key word .library— ►findTRefQ; 

}; 

SBJtECOGNIZED.TYPES *SB_LIBRARY::recognized.types() 

{ 

return (SB_RECOGNIZED-TYPES *)(Entity *)the_recognized_types— +Binding(); 

}; 

void SB_LIBRARY::update_recognized_types(cliar *file) 

{ . 

if(the_recognized_tvpes^NULL) 

{ 

recognized -types()^deleteObject(); 

}; 



166 



SB -RECOGNIZED-TYPES *new.type_matrix=new 
SB-RECOGNIZED.TYPES(file); 
the_recognized_types=new Type .matrix— findTRef(); 

} 

void SB_LIBRARY::Destroy(Boolean aborted) 

{ 

operator-component Jibrary ()— Destroy (aborted); 
adt_component Jibrary()— *Destroy(aborted); 
component_dictionary()— ►Destroy (aborted); 
recognized _types()— ► Destroy (aborted); 
keyword JibraryQ — Destroy (aborted); 

delete the_adt .component Jibrary; 
delete the_operator_component Jibrary; 
delete the .component-dictionary; 
delete the Jcey word Jibrary; 
delete the .recognized .types; 

Object: :Destroy( aborted); 



}; 



void SB_LIBRARY::deleteObject(Boolean deallocate) 

{ 

operator .component-library ()-^deleteObject( FALSE); 
adt_component_library()— +deleteObject( FALSE); 
component_dictionary()— deleteObject( FALSE); 
recognized .types()—deleteObject( FALSE); 
keyword Jibrary ()^deleteObject( FALSE); 

Object: :deleteObject(deallocate); 



}; 



void SB_LIBRARY::putObject(Boolean deallocate) 

{ 

operator-component Jibrary ()— ►putObject(deallocate); 
adt.component Jibrary ()—+putObject(deallocate); 
component_dictionary() — ►Dictionary ::putObject (deallocate); 
recognized _types()— ►putObject(deallocate); 
key word Jibrary ()— putObject(deallocate); 

Object::putObject(deallocate); 



}; 



Type *SB_LIBRARY::getDirectType() 

{ 

return SBJJBRARY.OType; 

}; 
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SB _ADT.COM PONENT.LIBRARY *SB.LIBRARY::adt.component.library() 

{ 

return (SB.ADT.COMPONENT.LIBRARY *) 

(the .adt. component Jibrarv— Binding()); 

}; 

SB. OPERATOR.COM PONENTJLIBR ARY *SB_LIBRARY::operator.component.]ibrary() 

{ 

return (SB.OPERATOR.COMPONENTXIBRARY *) 

(thejoperator_coinponent Jihrarv— ^BindingO); 

}; 

SB.KEYWORD.LIBRARY *SB.LIBRARY::keywordJibrary() 

{ 

return (SB.KEYWORD.LIBRARY *)the_key word-library— »Binding(); 

}; 

Boolean SB JLIBRARY::add(SB_COMPONENT *new .component) 

{ 

Boolean return _flag= FALSE; 

// first ensure that this component name is not already in use 

if(component_dictionarv()— * add( new.com ponent)==TRUE) 

{ 

component_dictionary()— *Dictionary::putObject(); 

// name not in use so continue processing 
// add the component to the keyword libraries 
return _fiag=T RUE; 

key word .library ( ) — add_component( new.com ponent ) ; 
key word-library ()— -putObject(); 

if(new_component— *getDirectType()==SB_ADT.COMPONENT_OType) 

{ 

return _flag=adt_component_library() — 

add((SB -ADT.COM PONENT *)new_component); 

} 

else 

{ 

return Jlag=operator. component JibraryQ— > 

add((SB .OPERATOR-COMPONENT *)new. component); 

}; 

}; 

return return Jlag; 
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}; 



void SB-LIBRARY::delete_component(SB-COMPONENT *the.component) 

{ 

keyword Jibrary()-^delete_component(the_component); 
key word-library () — putObject(); 

if(the_component— getDirectType()==SB_ADT_COMPONENT_OType) 

{ 

adt-ComponentJibraryQ^ 

delete_component((SB_ADT-COMPONENT *)the_component); 

} 

else 

{ 

operator-component Jibrary( )—*• 

delete_component( (SB_OPERATOR-COMPONENT *)the .component); 

}; 

component-dictionary ()— Remove(the-component— *component_name()); 
component.dictionary() — *putObject(); 
the.component— deleteObject(TRUE); 



void SB_LIBRARY::coniponent_list(ofstream& outstream) 

{ 

adt_component_library()-^list(outstream); 
operator-component _library()— list (outstream); 



}; 



SB-COMPONENT -DICTIONARY *SB_LIBRARY::query(SB_COMPONENT 
♦query .component) 

{ 

SB.COMPONENT-DICTIONARY *return-dictionary; 

if(query .component— < >getDirectType()==SB_A DT.COM PONENT.OType) 

{ 

return_dictionary=adt_component .library ()— 

query((SB_ADT_COMPONENT *)query.component); 

} 

else 

{ 

return -dictionary =operat or .component -library ()^ 

query((SB_OPERATOR_COMPONENT *)query .component); 

}; 



return return-dictionary; 

}; 



SB-COMPONENT *SB_LIBRARY::query(char *component-name) 
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{ 

return component_dictionary()— query(component-iiame); 

void SB -LIBRARY::keyword_query(ifstream&: instream, ofstream& outstream) 

{ 

key word Jibrarv()— ♦query(instream 1 outst.ream); 

}; 

SB.COMPONENT .DICTIONARY *SB-LIBRARY::component.dictionary() 

{ 

return (SB.COMPONENT.DICTIONARY *)(Entity *) 
t lie-component, dictionary — BindingQ; 

}; 

void S B _L I B R A R V : : key wor d _1 is t ( o fs t r earn Sc o u ts t rea m ) 

{ 

key word JibrarvQ — list (outstream); 

}; 

void SB-LIBR ARY:: type Jist(ofst.ream&: outstream) 

{ 

adt_component_library( )— list(outstream); 

}; 

void SB.LIBRARY::operator_list(ofstream& outstream) 

{ 

operator.com ponent.libraryO — list(outstream); 

}; 

void SB_LIBRARY::query(SB-COMPONENT *query-component,ofstream& outstream) 

{ 

SB .COM PON ENT .DICTIONARY* the_result=query(queryxomponent); 
the_result— >printOn( outstream); 

}; 
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# include ”sball .hxx : 



# include ”sbextern.h” 



SB_OPERATOR::SB_OPERATOR(APL *theAPL) : SB_COMPONENT(theAPL) 

{ 

}; 



SB-OPERATOR::SB.OPERATOR(char *id) : SB.COMPONENT(id) 

{ 



SB JDDECLDICTIONARY *new_input.attributes=new SB JDDECLDICTIONARYQ; 



SB JDDECLDICTIONARY *new.output.attributes=new SB JDDECLDICTIONARYQ; 
SB JEXCEPTION .DICTIONARY *new_exceptions=new SB EXCEPTION DICTIONARY; 



theJnput.attributes=new Jnput-attributes— findTRef(); 
the.output.attributes=new output attributes— ^findTRef(); 
the.exceptions=new exceptions— findTRefQ; 

states JIag= FA LSE ; 



} 



SB JDJ3ECL -DICTIONARY *SB_OPERATOR::input_attributes() 

{ 

return (SB_ID_DECL_DICTION ARY *)(the_input_attributes— ►BindingO); 

}; 

SB JD.DECL J3ICTIONARY *SB_OPERATOR::output_attributes() 

{ 

return (SB_ID_DECL_DICTIONARY *)(the_output_attributes^Binding()); 

}; 

Boolean SB_OPERATOR::states() 

{ 

return states -flag; 

}; 

SBDXCEPTION DICTIONARY *SB_OPERATOR::exceptions() 

{ 

return (SB.EXCEPTIONDICTIONARY *)(the_exceptions->BindingQ); 

}; 
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Boolean SB.OPERATOR::add_inputs(SB JD-DECL.DICTIONARY *input_dictionary) 

{ 

Boolean return-flag; 

// add new declarations to the declaration list 

return Jlag=input_attributes()— append(input j diet ionary); 

return return-flag; 

}; 

Boolean SB_OPERATOR::add.outputs(SB JDJ3ECL .DICTIONARY ^output .dictionary) 

{ 

Boolean return.flag; 

return _flag=output_attributes()—append(output .dictionary); 
return return -flag; 

}; 

void SB_OPERATOR::set-states() 

{ 

states _flag=T RUE; 

}; 

Boolean SB.OPERATOR::adcLexceptions(SB EXCEPTION DICTIONARY 
♦exception-dictionary) 

{ 

Boolean return-flag; 

return _flag=exceptions() — append(exception dictionary); 
return return -flag; 

}; 

void SB_OPERATOR::Destrov(Boolean aborted) 

{ 

input.attributes()— Destroy (aborted); 

output_attributes() — Destroy (aborted); 

exceptionsQ^ Destroy (aborted); 

delete the_input.attributes; 
delete the .output. attributes; 
delete the.exceptions; 

SB.COM PON ENT:: Destroy (aborted); 
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void SB_OPERATOR::deleteObject(Boolean deallocate) 

{ 

input_attributes()—deleteObject( FALSE); 
output _attributes()— deleteObject( FALSE); 
exceptions()-^deleteObject(FALSE); 
SB_COMPONENT::deleteObject( deallocate); 

}; 

void SB_OPERATOR::putObject( Boolean deallocate) 

{ 

input_attributes()—putObject( deallocate); 

output_attributes()— putObject(deallocate); 

exceptionsQ— +putObject (deallocate); 

SB.COMPON ENT: :putObject (deallocate); 

}; 

void SB_OPERATOR::prmtOn(ofstream& outstream) 

{ 

outstream « "OUTPUTING INTERFACE FOR OPERATOR 
outstream <C this— component_name() <C "\n"; 

outstream < "GENERIC ATTRIBUTES\n\n"; 
SB_COMPONENT::generic_usage()— printOn(outstream); 

outstream < "\nINPUT ATTRIBUTES\n\n" ; 
input_attributes()— ^printOn(outstream); 

outstream < "\nOUTPUT ATTRIBUTES\n\n" ; 
output_attributes()— printOn(outstream); 

outstream < "\nUNRECOGNIZED TYPES\n\n"; 
unrecognized -type.usageQ— printOn(outstream); 

outstream < "\nRECOGNIZED TYPES\n\n"; 
recognized _type_usage()— printOn(outstream); 

outstream <C "\nSTATES\n\n"; 
if(states_flag==TRUE) 

{ 

outstream C "YES\n"; 

} 



else 

{ 

outstream <C "NO\n"; 

}; 



outstream < "\nEXCEPTIONS\n\n"; 

exceptions()— printOn(outstream); 

outstream < "OUTPUTING THE PSDL TEXT\n\n"; 

outstream <C psdLtext()— *text() <C "\n"; 

outstream <C "OUTPUTING THE INFORMAL DESCRIPTION\n\n"; 

outstream <C mformaLdescription()— >text() "\n"; 

outstream < "OUTPUTING THE FORMAL DESCRIPTION\n\n"; 

outstream <C formaLdescription()— ■ -text() -C "\n"; 

outstream < "OUTPUTING THE NORMALIZED FORMAL DESCRIPTION\n\n" 

outstream <C norm.formaLdescription()— textQ "\n"; 

outstream < "OUTPUTING THE ADA SPEC\n\n"; 

outstream <C imp_spec.text() — text() -C "\ n "; 

outstream < "OUTPUTING THE ADA B0DY\n\n"; 

outstream <C imp_body_text() — text() <C "\n"; 



}; 



int SB_OPERATOR::uum_inputs() 

{ 

return input-attributes()— num(); 

}; 

int SB_OPERATOR::num_outputs( ) 

{ 

return output_attributes()— * num(); 

}; 

Dictionary Iterator SB_OPERATOR::input_iterator() 

{ 

return input_attributes()— type_iterat,or(); 

}; 

Dictionarylterator SB_OPERATOR::output_iterator() 

{ 

return output-attributes( ) — tvpe_iterator( ); 

}; 



Dictionarylterator SB_OPERATOR::exception Jterator() 

{ 

return exceptions( )— uterator( ) ; 

}; 
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int SB .OPERATOR: :num_generic.types() 

{ 

// get an iterator for the type.decl list 

// and any spec that is not a procedure is a generic type 

int count=0; 

Dictionarylterator next _id=SB_COMPONENT::generic_usage()— + 
typeiditeratorQ; 

while(nextid.moreDataQ) 

{ 

SB.TYPE.USAGE *the.usage=(SB-TYPE.USAGE*)(Entity *)nextJd(); 
SB-TYP E-NAME *the_type_name=the-usage— type_name(); 
if(the-type_name—>type-code()==SB -GENERIC-TYPE) 

{ 

count=count-f-f; 

}; 

}; 

return count; 

}; 



# include ’’shall .hxx 



# include ’’sbextern.h” 



SB-OPERATOR.COM PON ENT: :SB .OP ERATOR-COMPONENT( A PL *theAPL) 
SB.OPERATOR(theAPL) 

{ 

}; 



SB_OPERATOR.COM PONENT::SB.OPERATOR.COMPONENT(char *id) : 
SB.OPERATOR(id) 

{ 



}; 



void SB_OPERATOR_COMPONENT::Destrov( Boolean aborted) 

{ 

SB_OPERATOR:: Destroy (aborted); 

}; 

void SB_OPERATOR_COMPONENT::deleteObject( Boolean deallocate) 

{ 

SB_OPERATOR::deleteObject( deallocate); 

}; 

void SB_OPERATOR_COMPONENT::putObject(Boolean deallocate) 

{ 

SB_OPERATOR::putObject(deallocate); 

}; 

Type *SB_OPERATOR.COMPONENT::getDirectType() 

{ 

return SB.OPERATOR.COMPONENT.OTvpe; 

}; 

Boolean SB.OPERATOR_COMPONENT::process_type info() 

{ 

// update all usage dictionaries for inputs and outputs 

// 

// first go through all of the inputs 

Dictionary Iterator next _input=input-attributes()— id Jterator(); 
while(next input. moreData( )) 

{ 

SBJD-DECL *this_decl=(SBJD _DECL *)(Entity *)next _input(); 
SB_TYPE_NAME *this_type_name=:this_decl— *type_name(); 

// first see if this id.decl type is a generic 
if(generic_usage()— * update(this_tvpe_name)==FALSE) 

{ 

// was not a generic type so put it in the usage list 
II based on whether or not it is recognized 



if(this_typejiame— recognized()==FALSE) 

{ 

// was unrecognized so try to update 
// the unrecognized list or add it to 
II the list 

if(unrecognized_type-usage()— 

update(this_tvpejiame)== FALSE) 

{ 

// not yet in list so add it 
unrecognized -type.usageQ-^ 
add_type(this-type_name— dd(), 
this-type_name); 

// now update it for being used once 
unrecognized _type_usage()— ► 
update(this_tvpejiame); 

}; 

} 

else 

{ 

// this type name is recognized so update 
/ / or add it 

if(recognized_type-usage()— 

update( t his -type .name) == FALSE) 

{ 

// not yet in list so add it 
recognized_type_usage()— * 

add_type(this.type_name“*id(), 

this_type_name); 

// now update it for being used once 
recognized _type_usage()^ 
u p d at e ( t h is _ty p ejiarne ) ; 

}; 

}; 



}; 

}; 

Dictionary Iterator next-output:=output_attributes()— dditeratorQ; 
while(next_output.moreData()) 

{ 

SBJD-DECL *this_decl=(SB JDJDECL *)(Entity *)next_output() 
SB.TYPE-NAME *this_type_name=this_decl^type_name(); 

// first see if this id-decl type is a generic 
if(generic_usage()^update(this-type-name)=:= FALSE) 

{ 

// was not a generic type so put it in the usage list 
II based on whether or not it is recognized 
if(this_type_name— ► recognized()=:=FALSE) 

{ 

// was unrecognized so try to update 
II the unrecognized list or add it to 
II the list 



if(unrecognized_type.usage()—* 

update(this Jvpe_name)==FALSE) 

{ 

// not yet in list so add it 
unrecognized -type .usageQ^ 
add Jype( this Jypejiame— id(), 
this_type_name); 

// now update it for being used once 
unrecognized _type_usage()^ 
up date( this Type .name); 

}; 

} 

else 

{ 

// this type name is recognized so update 
/! or add it 

if( recogn ized _type_usage()— 

upclate(this_tvpe_name)==FALSE) 

{ 

// not yet in list so add it 
recogn ized _ty pe_usage( )— 

add_type( this Type jiame— id(), 
thisType-name); 

// now update for being used onece 
recognized Type_usage()— 
updat.e(thisType_name); 

}; 

}; 



}; 



}; 



return TRUE; 



}; 



Boolean SB.OPERATOR.COMPONENT::filter(SB.OPERATOR.COMPONENT *library.unit) 

{ 

// apply additional filter operations to the library unit 
/ / to see if the component can be rejected. True means 
II that it may still be a match , False indicates no match 



}; 



return TRUE; 



# include ”sball .hxx' 



# include ” sbextern .h” 



SB_OPERATOR-COMPONENT-LIBRARY::SB-OPERATOR.COMPONENT_LIBRARY(APL 
*theAPL) : 

Object(theAPL) 

{ 

}; 



SB_OPERATOR_COMPONENT_LIBRARY::SB_OPERATOR.COMPONENT_LIBRARY() : 
Object() 

{ 



SB_COMPONENT_DICTIONARY *new_operator_component-dictionary= 
new SB-COMPONENT -DICTION ARY(); 

the-operator -component-dictionary = 

new_operator_component-dictionary— findTRef(); 

Dictionary *new_state_dictionary=new Diet ionary (OC-integer, 

OC-dictionary, 

TRUE, 

FALSE); 

the-state .dictionary =new .state dictionary — findTRefQ; 

Dictionary *new-non_state-dictionary=new Dictionary(OC-integer, 

OC-dictionary, 

TRUE, 

FALSE); 

the-non-state .dictionary =new_non.state -dictionary —*findTRef(); 



}; 



void SB_OPERATOR.COM PONENT_LIBRARY::Destroy(Boolean aborted) 

{ 

operator -component .diction ary () — Destroy (aborted); 

// now must iterate through the multi-attribute query 
// dictionary tree 

Dictionary *leaf_dictionary; 

Dictionary * by _num-inputs-dictionary ; 

Dictionary *by_num-unrecognized-dictionary; 

Dictionary *by-num_outputs_dictionary ; 

by-num-inputs_dictionary=state_dictionary(); 
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Dictionarylterator next Jnput_dictionary= 

Dictionary lterator(by jium.inputs.dictionary); 

while( next _input_dict ionary. moreData()) 

{ 

by_num_unrecognized_dictionary= 

(Dictionary *)( Entity *)next_input_dictionary(); 



Dictionarylterator next _outputs_dict( by Jium_unrecognized .dictionary); 

while(next_outputs_dict.moreData()) 

{ 

by _nuni_outputs_dictionary=( Dictionary *)(Entity *) 
next .outputs _dict(); 



Dictionarylterator next Jeaf_dict(by Jium.outputs.dictionary); 

while(next-leaf_dict.moreData()) 

{ 

leaf_dictionary=(Dictionary *)( Entity *) 
next Jeaf_dict( ); 

Dictionarylterator next-component (leaf-dictionary); 



wliile(next_component.moreData()) 

{ 

((SB_OPERATOR_COMPONENT *)(Entity *)next_component())— 
Destrov( aborted) ; 

}; 

1 ea f.d i c t. ion ary — D es t roy (aborted); 

}; 

by _num_outputS-dict ionary— Destroy (aborted); 

}; ' 

by_num_unrecognized_dictionarv— Destroy (aborted); 

}; ' 

by _num_inputs_diction ary— Destroy (aborted); 



by_num-inputs-dictionary=noii-State-dictionary(); 



next .input .dictionary^ 

Diet ionary lterator( by _num_inputs_dictionary); 

while(next_input_diction ary. more DataQ) 

{ 

by-num_unrecognized-dictionary= 

(Dictionary *)(Entity *)next.input.dictionary(); 
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Dictionary Iterator next_outputs_dict(by_num_unrecognized -dictionary); 
while(next_outputs-dict.moreData()) 

{ 

by_num_outputs_dictionary=( Dictionary *)(Entity *) 
next-Outputs_dict(); 



Dictionarylterator nextieaf_dict(by_mim_outputs_dictionary); 

while(nextJeaf_dict.moreData()) 

{ 



leaf-dictionary =( Dictionary *)(Entity *) 
next Jeaf_dict(); 

Dictionarylterator next_component(leaf_dictionary); 



wliile(next_component.moreData()) 

{ 

((SB-OPERATOR-COMPONENT *)(Entity *)next_component())— 
Destroy (aborted); 

}; 

leaf-dictionary— *Destroy( aborted); 

}; 

by_num_outputs_dictionarv— Destroy (aborted); 

}; 

bv_num_unrecognized_dictionarv— * Destroy (aborted); 

}; ' 

by _num_inputs-dictionary— Destroy (aborted); 

delete the_operator-Component_dictionary; 
delete the-state_dictionary; 
delete the_non-state_dictionary; 



}; 



void SB_OPERATOR-COMPONENT-LIBRARY::deleteObject(Boolean deallocate) 
{ 

operator -component-dictionary () — deleteObject(deallocate); 

Dictionary *leaf_dictionary; 

Dictionary *by_num_inputs_dictionary; 

Dictionary *by_num-unrecognized-dictionary; 

Dictionary *by_num_outputS-dictionary; 

by-num-inputS-dictionary=state_dictionary(); 



Dictionarylterator next input-dictionary (by _num_inputs_dictionary); 
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while(next Jnput.dictionary.moreDataQ) 

{ 

by_num_unrecognized_dictionary= 

(Dictionary *)(Entity *)next_input_dictionary(); 



Dictionarylterator next_outputs_dict(by_num-unrecognized .dictionary); 

while(next_outputs_dict.moreData()) 

{ 

byjium_outputs_dictionary=(Dictionary *)(Entity *) 
next_outputs_dict(); 



Dictionarylterator next Jeaf_dict(by _num_outputs_dictionary); 

while(next_leaf-dict.moreData()) 

{ 

leaf_dict,ionary=( Dictionary *)( Entity *) 
next Jeaf_dict(); 

Dictionarylterator next_component(leaf_dictionary); 



while( next-component. moreData( )) 

{ 

((SB_OPERATOR-COMPONENT *)(Entity *)next_component()) 
deleteObject( FALSE); 

}; 

leaf_dictionary— deleteObject( FALSE); 

}; 

by_num_outputs_dictionary—+deleteObject( FALSE); 

}; 

by_niim_unrecognized_dictionarv— deleteObject(FALSE); 

}; ' 

by_num_inputs_dictionary — deleteObject( FALSE); 



byjiuni_inputs_dictionary=non.state_dictionary(); 



next_input_dictionary= 

DictionaryIterator(by_numJnputs_dictionary); 

while(nextJnput_dictionarv.moreData()) 

{ 

by_num_unrecognized_dictionary= 

(Dictionary *)(Entity *)next_input_dictionary(); 



Dictionarylterator next _outputs_dict( by jium .unrecognized .dictionary); 
wliile(next_outputs-dict.moreData()) 



{ 

by_num.outputs_dictionary=(Dictionary *)(Entity *) 
next joutputs.dictQ; 



Dictionarylterator next Jeaf_dict(by_num_outputs-dictionary); 

wliile(next JeaLdict.moreDataQ) 

{ 

leaLdictionary=( Dictionary *)(Entity *) 
next Jeaf_dict(); 

Dictionarylterator next_component(leaf_dictionary); 



while(next.component.moreData()) 

{ 

((SB_OPERATOR_COMPONENT *)(Entity *)next_component())-^ 
deleteObject( FALSE); 

}; 

leaf_dictionary^deleteObject( FALSE); 

}; 

by _num_outputs_dictionary—deleteObject( FALSE); 

}; 

by_num_unrecognized.dictionary^deleteObject (FALSE); 

}; ' 

by _num_inputs_dictionary— *deleteObject( FALSE); 

Object ::deleteObject( deallocate); 

}; 

void SB.OPERATOR.COMPONENT.LIBRARY::putObject(Boolean deallocate) 

{ 

operator_component_dictionary()—»putObject( deallocate); 

state.dictionaryQ— >putObject(deallocate); 
non_state_dictionary()— putObject (deallocate); 

Object ::putObject(deallocate); 

}; 



Type *SB-OPERATOR-COMPONENT_LIBRARY::getDirectType() 

{ 

return SB.OPERATOR-COMPONENT-LIBRARY.OType; 

}; 

SB.COMPONENT .DICTION ARY 

*SB_OPERATOR_COMPONENT -LIBRA RY::operator .component .dictionary () 

{ 



183 



}; 



return (SB.COMPONENT.DICTIONARY *)(Entity 
the_operator_component. dictionary— »Binding(); 



*) 



Dictionary *SB_OPERATOR_COMPONENT-LIBRARY::state.dictionary() 

{ 

return (Dictionary *)(Entity *)the_state_dictionary— *>Binding(); 

}; 

Dictionary *SB_OPERATOR-COMPONENT_LIBRARY::non_state.dictionary() 

{ 

return (Dictionary *)(Entitv *)the_non_state_dictionary— *Binding(); 

}; 

Boolean SB.OPERATOR.COM PONENTXIBRARY::add(SB. OPERATOR-COMPONENT 
♦new .component) 

{ 

Boolean return_flag=TRUE; 

Dictionary *leaf_dictionary; 

Dictionary *by_num_inputs_dictionary; 

Dictionary *by_num_unrecognized_dictionary; 

Dictionary *by_num_outputs_dictionary; 

operator_component_dictionary()—add(new .component); 

operator _component_dictionary( )— ^Dictionary ::putObject(); 

// insert into the component dictionary was successful l 
j j so insert it into the library 

if(new .component— »states()=:=TRUE) 

{ 

bY_num_inputs_dictionary=state_dictionary(); 

} 

else 

{ 

bv_num_inputs_dictionary=non_state_dictionary(); 

}; ' 



// have correct state dictionary so now find correct 
// input dictionary 

if(by_num_inputs.dictionary — isIndex(new_component— *num-inputs())==TRUE) 

{ 

by _num_unrecognized_dictionary=( Dictionary *) 

(Entity *)(*by_num.inputs.dictionary) 

[new_component— *-num.inputs()]; 



} 

else 

{ 



184 



by_num_unrecognized_dictionary=new Dictionary(OC -integer, 

OC.dictionary, 

TRUE, 

FALSE); 



by_num.inputs.dictionary — Insert(new_component— ► 

num_inputs(), 

by_num_unrecognized_dictionary); 



}; 



// have correct by nuni inputs dictionary so get the 
// unrecognized types diet . 

// got the unrecognized dictionary 

II use nuni generics since for a library unit all unrecognized types 
If must be generics 

if(by.num.unrecognized_dictionary— 

islndex( new .component— num.generic_types())==TRUE) 

{ 



by_num_outputs-dictionary=(Dictionary *)(Entity *) 
(*by_num_unrecognized_dictionary) 

[new .component — num_generic_types()]; 



} 

else 

{ 



by_num_outputs_dictionary=new Dictionary(OC_integer, 

OC-dictionary, 

TRUE, 

FALSE); 

byjium.unrecognized.dictionary— Insert( new .component— ► 

num_generic_types(), 

by_num_outputs_dictionary); 



}; 



if(by.num-outputs_dictionary^ 

islndex(new .component — num_outputs()) ==TRUE) 

{ 

leaf_dictionary=( Dictionary *)(Entity *) 
(*bymum.outputs_dictionary) 

[new.component — num_outputs()]; 



} 
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else 

{ 

leaf_dictioiiary=new Dictionary (OC-String, 

SB_COMPONENT_OType, 

FALSE, 

FALSE); 

by_num_outputs_dictionary— Insert(new_component— » 

num.outputsQ, 

leaf-dictionary); 



}; 



// have to leaf dictionary so now insert the component into it 
leaf-dictionary— I nsert( new .component— com ponent_name(), 

new-component); 

leaf-dictionary— putObjectQ; 
by-num-inputs_dictionary^putObject(); 
by_num_unrecognized.dictionary — putObject(); 
by_num-outputs_dictionary — putObjectQ; 

return return-flag; 

}; 



void SB.OPERATOR.COMPONENTXIDRARY:: 

delete .component^ SB -OPERATOR-COMPONENT *the_component) 

{ 



Dictionary *leaf_dictionary; 

Dictionary *by_num_inputs_dictionary; 
Dictionary *by-num-unrecognized_dictionary; 
Dictionary *by_num-outputs_dictionary; 

operator.com ponent-dictionary( )— 

Remove(the_component — component_name()); 
operator_component_dictionary() — putObject(); 



if(the-component — states()==TRUE) 

{ 

by_num-inputs-dictionary=state_dictionary(); 

} 

else 

{ 

by_num_inputs_dictionary=non_state_dictionary(); 
}; ' 
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// have correct state dictionary so now find correct 
// input dictionary 

if(by-num_inputs_dictionary— dsIndex(the_component— ►num_inputs())==TRUE) 

{ 

by-iium_unrecognized_dictionary=( Dictionary *) 

(Entity *)(*by_num_inputs-dictionary) 

[the-component— ►num_inputs()]; 

// got the unrecognized dictionary 

II use num generics since for a library unit all unrecognized types 
II must be generics 

if(by_num_unrecognized_dictionary— ► 

isIndex(the_component— *num_generic_types())==TRUE) 

{ 



by _num_outputs_dictionary=( Dictionary *)(Entity *) 
(*by_num_unrecognized-dictionary) 

[t he.component — num_generic_types( )] ; 

if(by_num_outputs_dictionary — 

isIndex(the_component— num-outputs())==TRUE) 

{ 

leaf-dictionary ^(Dictionary *)(Entity *) 
(*by_num_outputs_dictionary) 

[the-component — num_outputs()]; 

// have to leaf dictionary 

leaf-dictionary— Remove( the.component— ►component_name()); 

leaf-dictionary — putObject(); 

if( leaf-dictionary— Cardinality () — =0) 

{ 

by-num-outputs_dictionary— > 

Remove(the_component — ‘inim_outputs()); 
by_num_outputs_dictionary — putObject(); 

if( by _num_outputs_dictionary —^Cardinality ()==0); 

{ 

by_num.unrecognized .dictionary^ 

Remove(the_component— ►num_generic_types()); 
by_num-unrecognized_dictionary^putObject(); 

if(by_num_unrecognized_dictionary— ►Cardinality ()==0) 

{ 

by_num_inputs_dictionary^ 

Remove(the_component— ►num_inputs()); 
by_num_inputs_dictionary— *putObject(); 
by _num_unrecognized .dictionary— ►deleteObject(TRUE); 

}; 

by _num_ ou tpu t s_dict ionary — >deleteObject(TRUE); 
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}; 

leaf-dictionary— deleteObject(TRUE); 

}; 

}; 

}; 

}; 



}; 



SB-COMPONENT -DICTION ARY *SB_OPERATOR-COMPONENT_LIBRARY:: 
query(SB .OPERATOR-COMPONENT *query_coniponent) 

{ 

SB-COMPONENT-DICTIONARY *queryjresult=new SB_COMPONENTJDICTIONARY() 

Dictionary *leaf_dictionary; 

Dictionary *by_num-inputs.dictionary; 

Dictionary *by_num.unrecognized .dictionary; 

Dictionary * by _num.outputs.dict ionary; 

// get the correct state-dictionary to start the query 

if( query-component— *states()==TRUE) 

{ 

by_nuni_inputs_dictionarv=state-dictionarv(); 

} 

else 

{ 

by-mim-inputs_dictionary=:non-state_dictionary(); 

}; ' 



// have correct state dictionary so now find correct 
// input dictionary 

II for inputs must match exactly so only get one dictionary 

if((by_nuni.inputs_dictionary— isIndex(query_component— *num_inputs()))==TRUE) 

{ 

by-num_unrecognized_dictionary= 

(Dictionary *)( Entity *)(*by_num_inputs_dictionary) 

[query .component— num_inputs()]; 

// got the correct unrecognized-dictionary so iterate over it for 
II the output dictionaries 
Dictionarylterator next_outputs_dict= 

DictionaryIterator(by_num-unrecognized_dictionary, 

FALSE, 

query .component — 

nu m .u n recog n i zed _ty p es ( ) ) ; 

// loop through all of the unrecognized types that are valid 
while(iiext_outputs.dict.nioreData()) 
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{ 

by_num_outputs_dictionary=(Dictionary *)(Entity *) 
next_outputs_dict(); 

// got the outputs dictionary so now get the leaf dictionarys 

Dictionarylterator next Jeaf_dict= 

DictionaryIterator( by _num.outputs.dict ionary, 

FALSE, 

query .component— ♦ 
num.outputsQ); 



while(next Jeaf_dict.moreData()) 

{ 

leaf_dictionary=( Dictionary *)(Entit.y *) 
next JeaLdict(); 

Dictionarylterator next_component= 
Dictionarylterator(leaLdictionary); 



// got an output dictionary so iterate 
// through it and put the components in the 
II return result dictionary 

while( next .component. moreDataQ) 

{ 

SB_OPERATOR.COM PON ENT *the_component= 

(SB.OPERATOR.COMPONENT *)(Entity *)next _component(); 

if(query_component — filter(the_component) ==TRUE) 

{ 

query result — add(the .component); 

}; 



}; 



}; 

}; 

}; 



// add code to interface to semantic check routine here 



return query .result; 



}; 



void SB-OPERATOR.COMPONENT_LIBRARY::list(ofstream& outstream) 

{ 
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operator _component.dictionary()— ►printOn(outstream) 
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#include ” shall. hxx 



#include ’’sbextern.h” 

SB_RECOGNIZED_TYPES::SB_RECOGNIZED_TYPES(char *file) : Object() 

{ 

char new_type_name[256]; 
int count=0; 
int flag-value; 
int case_5ensitiveJnt; 

Dictionary *new_name_dictionary=new 

Dictionary (OC_string,OC_integer, FALSE, FALSE); 

the_name_dictionary=new_name.dictionary^findTRef(); 

ifstream type_defs(file); 

type.defs case_sensitive jnt; 
if(case_sensitiveint==0) 

{ 

case _sensitive= FALSE; 

} 

else 

{ 

case .sensiti ve=T RUE; 

}; 



Boolean done_flag= FALSE; 
while(done_flag=:= FALSE) 

{ 



count+-P; 

type_defs new J.ypejiame; 

if(strcmp(nevv_type_name, M — M )^0) 

{ 

char *store_type.name; 
if(!case_sensitive) 

{ 

store_type_name=convert_to_upper(new -type Jiame); 

} 

else 

{ 

store_type_name=new .type jiame; 

}; 



name_dictionary()— Insert (store_type_name, count); 



} 

else 

{ 
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done_flag=TRUE; 

count--; 

}; 



}; 



array .size=count; 

Array *new_row_array=new Array(OC.array,count,l); 
the_row_array=nevv j-ovv^array — findTRefQ; 

int row_count=l; 



for(row_count=l;row .count < array_size+ 1; row-count-f+) 

{ 



Array *new_colum_array=new Array(OC_integer, count, 1); 
int i; 

for(i=i;(i < count-h 1 ) ;i-| — I- ) 

{ 

type.defs flag.value; 
new_colum_array — setElement(i,flag_value); 

} 

row .array ()— * set Element (row .count, new_colum_array); 



}; 



}; 



SB -RECOGNIZED_TYPES::SB_RECOGNIZED-TYPES(APL *theAPL) : Object(theAPL) 

{ 

} 

void SB_RECOGNIZED_TYPES::Destrov(Boolean aborted) 

{ _ 

int row.count; 

name-dictionary () — Destroy (aborted); 

for(row_count = l;row .count < arrayjsize-fl; row-count-h-h) 

{ 

Array &row=*(row-array()); 

((Array *)(Entity *)row[row-Count])-^Destroy(aborted); 

}; 

row-array ()—* Destroy (aborted); 

delete the_name_dict ionary; 
delete the_row^array; 

Object:: Destroy (aborted); 

}; 
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void SB.RECOGNIZED_TYPES::deleteObject(Boolean deallocate) 

{ . 

int row .count; 

name.dictionary ( )^deleteObject( FALSE); 

for(row_count=l;row_count < arrayjsize+1; row.count-F-f) 

{ 

Array &row=*(row_array()); 

((Array *)(Entity *)row[row_count])— deleteObject(FALSE); 

}; 

row_array()—deleteObject( FALSE); 

Object: :deleteObject( deallocate); 

}; 

void SB.RECOGNIZED.TYPES::putObject( Boolean deallocate) 

{ . 

int row .count; 

name-dictionary ( )— putObject(deallocate); 

for (row .count =l;row .count. < array -size+1; row_count++) 

{ 

Array &row=*(row_array()); 

((Array *)(Entity *)ro\v[row_count]) — putObject(deallocate); 

}; 

row_array() — putObject(deallocate); 

Object ::putObject( deallocate); 

}; 

Type *SB_RECOGNIZED-TYPES::getDirectType() 

{ 

return SB JlECOGNIZED.TYPES.OType; 

}; 

Array *SB JtECOGNIZED.TYPES::row_array() 

{ 

return (Array *)(Entity *)the_row.array— Binding(); 

}; 

Dictionary *SB _RECOGNIZED_TYPES::name_dictionary() 

{ 

return (Dictionary *)(Entity *)t.he.naine.dictionary— BindingQ; 

}; 

Boolean SB_RECOGNIZED.TYPES::map(int in.map,int ouLmap) 

{ 

Boolean return_flag=FALSE; 

Array rows=*(row.array()); 
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Arrayfc colum=*((Array *)(Entity *)rows[in_map]); 



if( int(colum[outjnap])==l ) 

{ 

return _flag=TRUE; 

}; 

return return-flag; 

}; 

int SB JlECOGNIZED_TYPES::type_number(cIiar *type_id) 

{ 

int return. value=SB -UNRECOGNIZED. TYPE; 
char *search jd; 

if( lease-sensitive) 

{ 

search Jd=convert _to _upper( type _id ) ; 

} 

else 

{ 

search Jd=type id; 

}; 

if(name-dictionary() — islndex(search-id)) 

{ 

return ,value=int(name_dictionary()— getIntegerElement(search Jd)) 

}; 

return return-value; 

} 

char *SB .RECOGNIZED _TYPES::convert jo_upper(char *type_id) 

{ . 

int i; 

char *newjd=new cliar[strlen(type Jd)+1]; 
for(i=0;i<strlen(type jd);i++) 

{ _ 

if(islower(typeJd[i])) 

{ 

new jd[i]=type JdfiJ + ’A’-V; 

} 

else 

{ 

new _id[i]=typeJd[i]; 

}; 

}; 

new_id[i]=NULL; 
return newJd; 
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# include ’’shall. hxx' 



# include ’’sbextern.h” 

SB_TYPEJN T AME::SB_TYPE JVAME(APL *theAPL) : Object(theAPL) 

{ 

}; 

SB.TYPE_NAME::SB_TYPE_NAME(char *newid,SBJD.DECL.DICTIONARY 
*new_dictionary) : Object() 

{ 



the_id=new cliar[strlen(new_id)+l]; 
strcpy(the_id,new id); 



if(new_dictionary==NULL) 

{ 

new.dict ionary = new SB JD.DECL.DICTIONARY(); 

}; 

t he_id_decl_dictionary=new_dict ionary— findTRefQ; 

Boolean found_flag=:FALSE; 

SBJD.DECL *base-type_decl; 

Dictionarylterator next id-decl=id_decl .dictionary ()-^id_iterator(); 
wliile(next _id_decl.moreData( ) Sc&c !found_flag) 

{ 



SBJD.DECL *the.type.decl=(SB JD.DECL *)(Entity *)next _id.decl(); 
if((SB_M AIN.LI BRA RY— * recognized -typesQ)— ► 

type_number(the_type_decl-*id())==SB -BASE .TYPE) 

{ 

// found the base type deed 
found _flag=TRUE; 
base_type_decl=the_type_decl; 

}; 

}; 

if(found-flag) 

{ 

// has a base type defined so look it up 

the.base -type Jd=( base -type _decl— Type _name())— dd(); 

} 

else 

{ 

the_base_typeJd=the_id; 

}; 

the.base.type.code=(SB jMAIN -LIBRARY— 

recognized _types())— type.number(the.base.typeJd); 
the.type_code=(SB JVl AIN XIB RA RY— 

recognized . ty pes( ))— type.number( the Jd); 



}; 
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void SB_TYPE_NAME::Destroy( Boolean aborted) 

{ 

if(theJd^NULL) 

{ 

delete theJd; 

}; 

if( the_base_ty pe Jd ) 

{ 

delete the.base.typeJd; 

}; 



id_decl_dictionary()— ^Destroy (aborted); 
delete theJd.decLdictionary; 

Object: ’.Destroy (aborted); 

}; 

void SB_TYPE_NAME::deleteObject(Boolean deallocate) 

{ 

id_decl_dictionary()—^deleteObject( FALSE); 

Object ::deleteObject(deallocate); 

}; 

void SB_TYPE_NAME::putObject(Boolean deallocate) 

{ 

id_decl_dictionary()— putObject(deallocate); 

Object ::putObject( deallocate); 

}; 

SB JD_DECL_DICTIONARY *SB.TYPE.NAME::id.decLdictionary() 

{ 

return (SB_ID_DECL_DICTIONARY *)(the_id_decl_dictionary— +Binding()); 

}; 



Type *SB_TYPE _NAME::getDirectType() 

{ 

return SB.TYPE-NAME.OType; 

}; 

Boolean SB_TYPE_NAME::operator ==( Entity & other_type) 

{ 

Boolean return Jlag=FALSE; 
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char *this_baseid=this— ►base.typeJdQ; 
char *thisJd=this— dd(); 

char *other_baseid=((SB-TYPE_NAME &)other JLype). base -type id(); 
char *otherJd=((SB_TYPE_NAME &)other Jtype).id(); 

if(strcmp(this_basejd,other_base-id)==0 && 

(strcmp( this Jd, other _id)==0)) 

{ 

return _flag=TRUE; 

}; 

return return-flag; 

}; 



Boolean SB-TYPE_NAME::operator >(Entity<fc other-type) 

{ 



Boolean return_flag=FALSE; 

char *this_base_id=tliis— *base_type_id(); 

char *this_id=tliis— id(); 

char *other_base _id=((SB_TYPE_NAME &)other Jtype).base JtypeidQ; 
char *other_id=((SB_TYPE_NAME &)other_type).id(); 

if( strcmp(this-base-id,ot,her-baseJd) < 0) 

{ 

return _flag=FALSE; 

} . 

else if(strcmp(this_base_id, other-base-id) > 0) 

{ 

return _flag=TRUE; 

} 

else if(strcmp(this_id,other_id)< 0) 

{ 

return _flag=FALSE; 

} 

else 

{ 

return _flag=TRUE; 

}; 

return return-flag; 



}; 



void SB_TYPE-NAME::printOn(ofstreamfc outstream) 

{ 

outstream <C this— ►the.id; 
outstream M = " <C type-Code(); 
outstream <C M ( " the.base.typeJd <C " = 
outstream <C base_type_code() <C " )"; 

outstream < "[ M ; 
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id_decl_dictionary()^printOn(outstream); 
outstream "] 



}; 

Listlterator SB.TYPE_NAME::decl Jterator() 

{ 

return id_decl.dictionary()^order _iterator(); 

}; 

int SB_TYPE_NAME::num_decl() 

{ . 

int return_value; 

if(id_decLdictionary()==NULL) 

{ 

return _value=0; 

} 

else 

{ 

return_value=id_decLdict.ionary()— *num(); 

}; 

return return_value; 

}; 

char *SB_TYPE_NAME::id() 

{ 

return theJd; 

}; 

char * S B_T YP E _N A M E : : b ase -t v p e i d( ) 

{ 

return the_base_type_id; 

}; 

int SB_TYPE_NAME::baseAype_code() 

{ 

return the_base_type_code; 

}; 



int SB_TYPE_NAME::type_code() 

{ 

return theAype.code; 

}; 

Boolean SB_TYPE_NAME::recognized() 

{ 

return Booleaii(base.t.ype.code()/SB-UNRECOGNIZED.TYPE); 
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}; 
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# include ” shall .hxx” 

# include ’’sbextern. h 1 



SB.TEXT.OBJ ECT::SB.TEXT_OBJECT(APL *theAPL) : Object(theAPL) 

{ 

}; 

SB.TEXT.OBJ ECT: :S B. TEXT -OBJ ECT() : Object() 

{ 

the_text=new cliarfl]; 
strcpy(the_text, ,,M ); 

}; 

Type *SB_TEXT_OBJECT::getDirectType() 

{ 

return SB.TEXT.OBJ ECT .OType; 

}; 

void SB.TEXT.OBJ ECT::Destroy (Boolean aborted) 

{ 

delete the .text; 

Object:: Destroy (aborted); 

}; 

void SB_TEXT_OBJECT::deleteObject(Boolean deallocate) 

{ 

Object ::deleteObject( deallocate); 

}; 

void SB.TEXT.OBJECT::putObject(Boolean deallocate) 

{ 

Object ::putObject(deallocate); 

}; 

void SB.TEXT.OBJ ECT::append(ifstream& instream) 

{ 

ostrstream buffer; 

while(!instream.eof()) 

{ 

char text=instream.get(); 
if(text^EOF) 

{ 

buffer. put( text); 

}; 

}; 

buffer. put(NULL); 
the_text=buffer.str(); 

}; 

void SB.TEXT.OBJ ECT::append(char *instring) 
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{ 

the-text=new char[strlen(instring)-f 1]; 
strcpy( the .text, instring); 

}; 



void SB.TEXT_OBJECT::text(ofstream& outstream) 

{ 



outstream <C the.text; 



}; 



char *SB_TEXT_OBJECT::text() 

{ 

return the.text; 

}; 
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# include ” shall .hxx 



# include ’’sbextern.h” 

SB-TYPE .USAGE: :SB_TYPE_USAGE(APL *theAPL) : Object(theAPL) 

{ 

}; 



SB_TYPE.USAGE::SB.TYPE.USAGE(char *new_type_id, 

SB.TYPE_NAME *new_type-name): 
Object.() 

{ 



the_type_id=new char[strlen(new_type_id)+l]; 
strcpy(the_type Jd, new. type id); 

the_type_name=ne\v_type_name— findTRefQ; 
the.times_used=0; 



}; 

void SB_TYPE_USAGE::Destroy(Boolean aborted) 

{ . 

if(the_type_id) 

{ 

delete the_type_id; 

}; 

type_name()— ► Destroy (aborted); 

Object ::Destroy( aborted); 

}; 

void SB_TYPE-USAGE::deleteObject( Boolean deallocate) 

{ 

type_name() — deleteObject( FALSE); 

Object: :deleteObject( deallocate); 

}; 

void SB_TYPE_USAGE::putObject(Boolean deallocate) 

{ 

type_name()— *putObject(deallocate); 

Object: :putObject(deallocate); 

}; 

char *SB_TYPEJJSAGE::tvpe_id() 

{ 
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return the.typeJd; 

}; 

SB-TYPE.NAME *SB.TYPE-USAGE::tvpe_name() 

{ 

return ((SB.TYPE.NAME *) (theJype_name^Binding())); 

}; 

void SB.TYPE.USAGE::used() 

{ 

the_times.used++; 

}; 

int SB.TYPE.USAGE: : times _u.sed( ) 

{ 

return (the.times_used); 

}; 



Type *SB.TYPE.USAGE::getDirectTvpe() 

{ 

ret urn SB.TYPE.USAGE .OTy pe; 

}; 

void SB_TYPE_USAGE::priiUOn(ofstream&i outstream) 

{ 

outstream <C the.typeJd <C " used M <C the.times.used <C ” 
type_iiame()-^printOn(outstream); 

}; 

char *SB.TYPE_USAGE::base.typeid() 

{ 

return type_name()— base_tvpeJd(); 

}; 
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# include ” sball.hxx 



# include ’’sbextern.h” 

SB_TYPE_US AG EJDICTION ARY: :SB_TYPE_US AG E_DICTION ARY( A PL *theAPL) : 
Object(theAPL) 

{ 

}; 



SB.TYPE-USAGE_DICTIONARY::SB.TYPE.USAGE-DICTIONARY() : Object() 

{ 



Dictionary *new_dictionary.by_base_type= new Dictionary(OC.string, 

SB.TYPE.USAGE.OType, 

TRUE, 

TRUE); 



the_dictionary.by-base.type=new .dictionary .by .base .type— findTRef(); 

Dictionary *new.dictionary.by.tvpeJd= new Dictionary(OC.string, 

SB.TYPE.USAGE.OType, 

TRUE, 

FALSE); 



the.dictionary.by.typeJd=new.dictionary.by.typeJd— »findTRef(); 

Dictionary *new .dictionary . by .times.used=new Dictionary(OC.integer, 

SB.TYPE.USAGE.OType, 

TRUE, 

TRUE); 

the.dictionary.by.times.used=new.dictionary.by_tinies.used^findTRef(); 



}; 



void SB-TYPE.USAGE.DICTIONARY::Destrov( Boolean aborted) 

{ 

Dictionarylterator next_decl=typeJd_iterator( ); 

while(next _decl .moreData( ) ) 

{ 

((SB.TYPE.USAGE *)( Entity *)next_decl()) — Destroy(aborted); 

}; 
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dictionary - by -base-typeQ—* Destroy (aborted); 
dictionary - by -typeJdQ— ♦Destroy (aborted); 
dictionary _by_times_used()— ^Destroy (aborted); 

delete the.dict ionary Jby .base -type; 
delete the_dictionary_by .type id; 
delete the_dictionary_by_times_used; 

Object:: Destroy (aborted); 



}; 



void SB_T YPE.US AG E-DICTION A RY::deleteObject( Boolean deallocate) 

{ 



Dictionary Iterator next_decl=type iditeratorQ; 

while(next_decl.moreData( )) 

{ 

((SB.TYPE.USAGE *)( Entity *)next.decl())^deleteObject(FALSE); 

}; 



dictionary _by_base_type()— *deleteObject( FALSE); 
dictionary_by_typeid()—+deleteObject( FALSE); 
dictionary_by_tinies_used() — deleteObject( FALSE); 

Object ::deleteObject( deallocate); 



}; 



void SB.TYPE.USAGE.DICTIONARY::putObject( Boolean deallocate) 

{ 



Dictionary Iterator next_decl=type Jd Jterator(); 

while(next_decl.moreData()) 

{ 



((SB-TYPE .USAGE *)( Entity *)next-decl())— ^putObject (deallocate); 

}; 



dictionary-byJbase-typeQ— >putObject( deallocate); 
dictionary-by-typeid()—>putObject (deallocate); 
dictionary_by_times_used() — putObject.(deallocate); 

Object ::putObject( deallocate); 



}; 



Type *SB.T YPE.US AGE-DICTION A RY::getDirectType() 
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{ 

return SB.TYPE.USAGE JDICTIONARY.OType; 

}; 

Dictionary *SB_TYPE_USAGE_DICTIONARY::dictionary_by_b£tse_type() 

{ 

return (Dictionary *)(the_dictionary_by_base_type^Binding()); 

}; 

Dictionary *SB JTYPEJJS AGE J3ICTI0N ARY: .dictionary _by_type_id() 

{ 

return (Dictionary *)(t,he_dictionary_by_type_id— BindingQ); 

}; 

Dictionary *SB_TYPE_USAGE JDICTIONARY::dictionary_by_times_used() 

{ 

return (Dictionary *)(the_dictionary_by_times_used^Binding()); 

}; 



Boolean SB.TYPE.USAGE JDICTIONAEY::add.type(char *typeJd,SB.TYPEJVAME 
*type_name) 

{ 

Boolean returnJlag; 



if(dictionary_bv_type_id() — islndex(type_id)== FALSE) 

{ 

U ID NOT YET USED 

SB_TYPE_USAGE *new_usage=new SB .TYPE JJS AGE( type Jd,type_name); 

dictionary_by_typeJd()— -Insert (type_id,new_usage); 

dictionary _by_base.type()— *Insert(typejiame— ►bcise.type id(), new .usage); 

dictionary _by_times_used() — Insert (0, new .usage); 

return _flag=TRUE; 

} 

else 

{ 

// id already in use so can not insert 
return _flag= FALSE; 

}; 

return returnJlag; 

}; 

Boolean SB.TYPE.USAGE _DICTIONARY::add_type(SB_TYPE.USAGE *type_usage) 

{ 

Boolean return.flag; 
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if(dictionary-by_type_id() — »islndex( type-usage— * type _id())==FALSE) 

{ 

// ID NOT YET USED 

dictionary_by_type_id()^Insert( type-usage— ►typeid(),typejusage); 
diet ionary _by_base_ty pe( )— • Insert( type .usage— >base -type id(), type .usage); 
dictionary-by-times_used()— dnsert(0,type-usage); 

return _flag=TRUE; 

} 

else 

{ 

// id already in use so can not insert 
return _flag= FALSE; 

}; 



return return .flag; 



}; 



Boolean SB.TYPE-USAGE_DICTIONARY::append(SB.TYPE.USAGE -DICTIONARY 
♦ dictionary) 

{ 

Boolean return Jlag=TRUE; 

Dictionarylterator next_id=dictionary— *type_id_iterator(); 

while(next_id.moreData() return_flag==TRUE) 

{ 

SB-TYPE.USAGE *the_usage=(SB.TYPE.USAGE *)(Entity *)next _id(); 
return _flag=add_type(the .usage); 

}; 

/* next-id. Reset (); 
while (\ nextJd. moreDataQ) 

{ 

SB-TYPE-USAGE *ihe-usage=(SB-TYPE-USAGE *)(Entity *)next-id(); 
dictionary-> remove-usage(the-usage); 

}; 



dictionary-> Destroy (FALSE);*/ 



return return-flag; 

}; 



void SB.TYPE.USAGE_DICTIONARY::remove-iisage(SB_TYP E.USAGE *the.usage) 

{ 

dictionary_by_times-used()— *Remove(the_usage— *times_used(),the_usage); 
dictionary-by -type Jd()—^Remove(the-usage-^ type Jd(),the-usage); 
dictionary _by_base_type( )— Remove(the_usage — base-type _id(),the_usage); 
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}; 

void SB_TYPE_USAGE_DICTIONARY::printOn(ofstream& outstream) 

{ 

Dictionarylterator &next_decl= 

*(new DictionaryIterator( dictionary _by_base_type())); 

while(next_decl.moreData()) 

{ 

((SB_TYPE_USAGE *)(Entity *) next_decl())— ►printOn(outstream); 
outstream «C "\n"; 

}; 

}; 

int SB-TYPE.USAGE JDICTIONARY::num() 

{ 

return (int)(dictionary_by_base_type( ^Cardinality ()); 

}; 

Dictionarylterator SB_TYPE_USAGE_DICTIONARY::typeJd JteratorQ 

{ 

return DictionaryIterator(dictionary_by_type _id() ) ; 

}; 

Dictionarylterator SB_TYPE_USAGE_DICTIONARY::base_type _iterator() 

{ 

return DictionaryIterator(dictionary_by_base_type()); 

}; 

Dictionarylterator SB.TYPE_USAGE_DICTIONARY::times_used iterator () 

{ 

return DictionarvIterator(dictionary_by_times_used()); 

}; 



Boolean SB_TYPE_US AGE-DICTION ARY::update(SB_TYPE_NAME *type.name) 
{ 



Boolean return _flag=FALSE; 

if(dictionary_by_type_id()~MsIndex(tvpe_name^id())) 

{ 

// this type id is in the list so update its usage 
((SB_TYPE_USAGE *)dictionary_by_type_id()—> 
getEntityElement(type_name— id()))^used(); 
return Jlag=TRUE; 

}; 

return returnJlag; 

}; 
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APPENDIX C - PARSER GENERATION INPUT 

FILES 



A. LEX INPUT 



%{ 




# include "y.tab.h"; 


int line_ 


_number=l; 


%} 




a 


[aA] 


b 


[bB] 


c 


[cC] 


d 


[dD] 


e 


teE] 


f 


[fF] 


g 


[gG] 


h 


[hH] 


i 


[il] 


j 


UJ] 


k 


[kK] 


1 


[1L] 


m 


[mM] 


n 


[nN] 


0 


[oO] 


P 


IpP] 


q 


[qQ] 


r 


[rR] 


s 


[sS] 


t 


[tT] 


u 


[uU] 


V 


[vV] 


w 


[wW] 


X 


[xX] 


y 


[yYj 


z 


[zZ] 



space [ ] 

%% 



UHyHpHe) 

(s){p) (e}{c}(i}(f}{i}(c}(a}(t){i}{o} {n} 
(e)(n}{d) 

{g}{e}{n}(e}(r}(i}(c} 



retum(TYPE); 

retum(SPECIFICATION); 

retum(END); 

retum(GENERIC); 
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{o}{p}{e}{r){a}(t}{o){r} 

{>}{n}{p}(u){t} 

{o}{u){t}{p}{u){t} 

{s}(t){a}{t}{e}{s} 

{e}{x}{c){e}{p}{t}{i}{o){n}{sJ 

[b] {y } {space} (r) {e} (q) (u) {i} {r} {e} (m) {e} (n) (t){s) 

{d}{e}{s){c}{r){i){p}{t}{i)(o}{n} 

{a}{x}{i){o}(m}{s} 



retum(OPERATOR); 

retum(INPUT); 

retum(OUTPUT); 

retum(STATES); 

retum(EXCEPTIONS); 

retum(BY_REQ); 

retum(DESCRIPTION) ; 

retum(AXIOMS); 

retum(KEYWORDS); 



{k){e){y}{w}{o}{r){d}{s) 

{m} (a) (x) {i} (m) {u} {m} (space) {e} {x} (e) {c} {u} {t} {i} {o} {n}{space} (t) (i) (m) {e} 

retum(MAX_EXEC_TIME); 
retum(MICROSEC); 



{m}(i}{c}(r}{o}{s}{e}{c} 

{m}{s} 

(s) (e) (c) 

{m){i}{n} 

{h}{o}{u}{r]{s] 

{a}{n}{d} 

(o) {r } 

{x){o}{r} 

{t){r}{u}{e} 

{f}{a}{l}{s]{e} 

{n){o}{t) 



"<=" 






&" 



{m){o}{d) 

(r}{e}{m) 

"**»• 

[0-9] [0-9]* 
[0-9][0-9]*"."[0-9]* 

"""rAn*”"" 



T 

”]" 

T 

T 

T[ A ]]*T { 



return (MS); 

return(SEC); 

retum(MIN); 

retum(HOURS); 

retum(AND); 

retum(OR); 

retum(XOR); 

retum(TRUE); 

return (FALSE); 

retum(NOT); 

retum( , <’); 

retum( t >’); 

retum( , =’); 

retum(GTE); 

return (LTE); 

retum(NEQV); 

return (V); 

retum( , - f ); 

retum( , &’); 

retum(’*'); 

retum(7); 

retum(MOD); 

return(REM); 

retum(EXP); 

return(INTEGER_LITERAL); 

retum(REAL_LITERAL); 

retum(STRING_LITERAL); 

retum(V); 

retumC:’); 

retum(V); 

retum(T); 

retum(T); 

retum('0» 

retumO’); 

char *temp=yytext; 
while(*temp!=NULL) 

{ 

if(*temp=='\n’) 
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{ 

line_number++; 

}; 

temp++; 

}; 

return (TEXT_BLOCK); 

}; 

[a-zA-Z][a-zA-Z_0-9]* retum(ID); 

(\M ]; 

"\n" { 

line_number++; 

}; 
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B. YACC INPUT 



% start component 



%union { 

void* OBJECT_POINT; 

) 

% token ID TYPE SPECIFICATION END GENERIC 
% token OPERATOR INPUT OUTPUT 

% token STATES EXCEPTIONS BY_REQ DESCRIPTION AXIOMS 
%token TEXT.BLOCK KEYWORDS 
%token MOD GTE LTE 

% token MS MICROSEC SEC HOURS MIN AND OR XOR 
%token NEQV REM EXP 
% token INITIALLY MAX_EXEC_TIME 

%token INTEGER.LITERAL TRUE FALSE REAL.LITERAL STRING.LITERAL 
%token NOT ABS 



%type 

%type 

%type 

%type 



<OBJECT_POINT> 

<OBJECT_POINT> 

<OBJECT_POINT> 

<OBJECT_POINT> 



type_spec optional_generic_specs 
optional_type_decl optional_operator_decl 
operator data_type type_name generic_attributes 
input_attributes output_attributes exceptions_attributes 



%{ 

#include <stream.hxx> // C++ specific io routines 
#include "sball.hxx" 



/* this code allows the C++ compiler to use the c code generated by lex as standard c code */ 



extern "C~" 

{ 

extern int yylex(); 
extern int line_number; 
extern char yytext[]; 
#include <string.h> 
#include <ctype.h> 
#include <stdlib.h> 
#include <stdio.h> 

) 



extern int yyerror(char *); 

extern SB_COMPONENT* Y YPARSE_component; // global pointer to the main library object 
extern Boolean YYPARSE_query_flag; 

// predeclare functions for internal stacks 
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void push_object(void *new_object); 

void *top_objectO; 

void *pop_object(); 

void push_id(char *new_id); 

char *top_id(); 

char *pop_idO; 

void push_rid(char *new_id); 

char *top_ridO; 

char *pop_ridQ; 

// declare global variables for the parser 

Boolean SB_COMPONENT_ADT_FLAG=FALSE; 
char *psdl_type_name; 

%) 

%% 

component: 

datatype 

{ 

YYPARSE_component=(SB_COMPONENT *)$1; 

) 

I 

operator 

{ 

YYPARSE_component=(SB_COMPONENT *)$1; 

); 



data_type: 

TYPE 

push_ID 



psdl_type_name=top_id(); 

push_object(new SB_ADT_COMPONENT(pop_idO)); 
SB_COMPONENT_ADT_FLAG=TRUE; 

) 

type_spec 

{ 

SS=(SB_COMPONENT *)pop_object(); 

}; 



type_spec: 

SPECIFICATION 
optional_generic_specs 
optional_type_dec I 
optionaI_operator_dec! 



214 



functionality 

END 

{ 

if($2!=NULL) 

( 

((S B_ A DT_COMPONENT *)top_object())-> 

insert_generics((S B_T YPE_U S AGE_DICTION ARY *)$2); 



if(S3!=NULL) 

{ 

((SB_ADT_COMPONENT *)top_object())-> 

insert_ad t_usage((S B_T YPE_U S AGE_D ICTION AR Y *)$3); 



if(S4!=NULL) 



); 



}; 



((SB_ADT_COMPONENT *)top_object())-> 

insert_operators((SB_ADT_OPERATOR_DICTIONARY *)$4); 



optional_generic_specs: 

GENERIC 

push_new_SB_TYPE_USAGE_DICTIONARY 

list_of_type_decl 

( 

SS=(S B_TYPE_US AGE_DICTION ARY *)pop_object(); 

}; 



/♦optional*/ 

($$=NULL;); 

optional_ty pe_dec 1 : 

push_new_S B_T YPE_US AGE_DICTION AR Y 
list_of_type_decl 
{ 

S$=(S B_TY PE_US AGE_DICTION ARY *)pop_object(); 

) 

I 

/♦optional*/ 

{$S=NULL;}; 

optional_operator_decl: 

push_new_SB_ADT_OPERATOR_DICTIONARY 

operator_list 

{ 

$$=(SB_ADT_OPERATOR_DICTIONARY *)pop_objectO; 

} 
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/^optional*/ 

{$$=NULL;}; 

lisL.of_type_.decl: 

list_of_type_decl 

type_decl 

I 

type_decl; 

type_decl: 

push_id_list_start 

idjist 

I„1 

type_name 

{ 

// must use another stack in order to reverse the order back 
// to the original order in the declaration 
while(top_id()!=BOTTOM_ID) 

{ 

push_rid(pop_id()); 

} 

pop_id(); // pop off the BOTTOMJD MARKER 
while(top_rid()!=NULL) 

( 

((SB_TYPE_USAGE_DICTIONARY *)top_object())-> 
add_type(pop_rid(),(SB_TYPE_NAME *)$4); 

}; 

}; 

id_list: 

idjist 

pushJD 

I 

pushJD; 

type_name: 

push_ID 

{ 

$$=new SB_TYPE_NAME(pop_id(),(SB_lD_DECL_DlCTIONARY*)NULL); 



I 

push_lD 

T 

push_new_SB_ID_DECL_DICTIONARY 

list_of_id_decl 

T 
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$$=new SB_TYPE_NAME(popJd(),(SB_ID_DECL_DICTIONARY*)pop_object()); 



}; 



list_of_id_decl: 

list_of_id_decl 

* 

id_decl 

I 

id_decl; 

id_decl: 

push_id_list_start 

idjist 

type_name 

{ 

// must use another stack in order to reverse the order back 
// to the original order in the declaration 
while(top_id()!=BOTTOM_ID) 

( 

push_rid(pop_id()); 

); 

pop_id(); // pop off the BOTTOM_ID MARKER 
while(top_rid()!=NULL) 

( 

((SB_ID_DECL_DICTIONARY *)top_object())-> 

add_decl(pop_rid(),(SB_TYPE_NAME *)$4); 

}; 

}; 



operatorjist: 



operator 

{ 

((SB_ADT_OPERATOR_DICTIONARY*)top_object())->add((SB_ADT_OPERATOR*)$l); 

}; 



operator 

operator_list 

( 



); 



((SB_ADT_OPERATOR_DICTIONARY*)top_objectO)-> 

add((S B_ADT_OPERATOR*)$l); 



functionality: 

keywords 

informal_desc 
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formal_desc 



keywords: 

{ /^optional */} 

I 

KEYWORDS 

push_id_list_start 

idjist 

( 

while(top_id()!=BOTTOM_ID) 

( 

(((SB_COMPONENT *)top_object())->keyword_dicuonary())->add(pop_id()); 

}; 

pop_id(); // remove the bottom_id 

); 



informal_desc: 

{/"“optional*/} 

I 

DESCRIPTION 

TEXT.BLOCK 

{ 

char *the_text=new char[strlen(yytext)+l]; 

// put all but the opening ( and closing } into the_text 
int i; 

for(i=l;i< strlen(yytext)-l;i++) 

( 

the_text[i-l]=yytext[i]; 

); 

the_text[i- 1 ]=NULL; 

(((SB_COMPONENT *)top_object())->informal_description())->append(the_text); 
delete the_text; 

} 

formal_desc: 

{ /*optional*/ } 

I 

AXIOMS 

TEXT.BLOCK 

{ 

char *the_text=new char[strlen(yytext)+l]; 

// put all but the opening { and closing } into the_text 
int i; 

for(i=l;i< strlen(yytext)-l;i++) 

{ 

the_text[i-l]=yytext[i]; 

}; 

the_text[i- 1 ]=NULL; 
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(((SB_COMPONENT *)top_object())->forrnal_description())->append(the_text); 
delete the_text; 

} 



operator: 

OPERATOR 

push_ID 



if(SB_COMPONENT_ADT_FLAG==TRUE) 

( 

// concatonate the psdl_type name and the operator name to ensure 

// a unique name in the database for the new component 

char *component_name=new 

char[strlen(psdl_type_name)+ 

strlen(top_id())+2]; 

strcpy(component_name,psdl_type_name); 

strcat(component_name,"."); 

strcat(component_name,pop_idO); 

push_object(new SB_ADT_OPERATOR(component_name)); 
delete component_name; 



else 

{ 

push_object(new SB_OPERATOR_COMPONENT(pop_id())); 

}; 

} 

operator_spec 

( 

$$=pop_object(); 

}; 



operator_spec: 

SPECIFICATION 

operator_interface 

functionality 

END 

operator_interface: 

(/*empty */} 

1 

attribute 

req_trace 

operator_interface 

attribute: 

generic_attributes 

( 
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((SB.OPERATOR 

*)top_object())->insert_generics((SB_TYPE_USAGE_DICTIONARY *)$1); 

}; 

i 

input_attributes 

[ 

((SB_OPERATOR *)top_object())->add_inputs((SB_ID_DECL_DICTIONARY *)$1); 

); 

i 

output_attributes 

{ 

((SB_OPERATOR *)top_object())-> 

add_outputs((SB_ID_DECL_DICTIONARY *)S1); 



I 

state_atlributes 

I 

exceptions_attributes 

{ 

((SB.OPERATOR *)top_object())-> 

add_exceptions((S B_EXCEPTION_DICTIONARY *)$ 1 ); 



I 

max_execution_attribute; 



req_trace: 

{/*empty*/} 

I 

BY_REQ 

id_list 

generic_aitributes: 

GENERIC 

push_new_SB_TYPE_USAGE_DICTIONARY 

list_of_type_decl 

( 

SS=(SB_TYPE_USAGE_DICTIONARY *)pop_object(); 

}; 



input_attributes: 

INPUT 

push_new_SB_ID_DECL_DICTIONARY 

list_of_id_decl 

( 

$S=(SB_ID_DECL_DICTIONARY *)pop_objectO; 

}: 



output_attributes: 
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OUTPUT 

push_new_S B_ID_DECL_DICTIONARY 
list_of_id_decl 
{ 

$$=(SB_ID_DECL_DICTIONARY *)pop_object(); 

}; 

state_attributes: 

STATES 

list_of_id_decl 

{ 

// through away the list of type decl since it is not used 
pop_object(); 

} 

INITIALLY 
in itial_express ion_l i st 



exceptions_attributes: 

EXCEPTIONS 

push_new_SB_EXCEPTION_DICTIONARY 

push_id_list_start 

idjist 

{ 

while(top_id()!=BOTTOM_ID) 

( 

((S B_EXCEPTION_DICTION ARY *)top_object())->add(pop_id()); 

); 

pop_id(); // pop off the bottom marker 

$$=(S B_EXCEPTION_DICTION ARY *)pop_object(); 

); 

max_execution_attribute: 

MAX_EXEC_TIME time; 
time: 

I NTEGER_LITER AL MICROSEC 
I 

I NTEGER_LITER AL MS 
I 

INTEGER_LITERAL SEC 
I 

INTEGER.LITERAL MIN 
I 

INTEGER.LITERAL HOURS; 

initial_expression_list: 

initial_expression_list 
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initiaLexpression 

I 

initiaLexpression; 

initial_expression: 

TRUE 

I 

FALSE 

I 

INTEGER_LITERAL 

I 

REAL.LITERAL 

I 

STRING_LITERAL 

I 

ID 

I 

type_name 

ID 

I 

type_name 

t t 

ID 

'(' initial_expression_list ’)’ 
I 

'(’ initiaLexpression ’)’ 

I 

initiaLexpression 

log_op 

initiaLexpression 

linitiaLexpression 

rel_op 

initiaLexpression 

r- f 

initiaLexpression 

I 

V 

initiaLexpression 

I 

initiaLexpression 

bin_add_op 

initiaLexpression 

I 

initiaLexpression 

bin_mul_op 

initiaLexpression 

I 

initiaLexpression 

EXP 



initial_expression 

I 

NOT 

initial_expression 

I 

ABS 

initial_expression; 

log_op: 

AND 

I 

OR 

I 

XOR; 

rel_op: 

t * 

I 

*>' 

I 

GTE 

I 

LTE 

I 

NEQV; 

bin_add_op: 

I 

I 

bin_mul_op: 

’*■ 

I 

7 

I 

MOD 

I 

REM; 

push_ID: 

ID 

( 

char *new_id=new char[strlen(yytext)+l]; 

strcpy(newjd,yytext); 

pushjd(newjd); 

); 
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push_new_SB_EXCEPTION_DICTION ARY : 

( 

push_object(new S B_EXCEPTION_DICTIONAR YO); 

}; 

push_new_SB_TYPE_USAGE_DICTIONARY: 

{ 

push_object(newSB_TYPE_USAGE_DICTIONARYO); 

}; 

push_new_S B_ADT_OPER ATOR_DICTION AR Y : 

{ 

push_object(new SB_ADT_OPERATOR_DICTIONARY0); 

}; 

push_id_list_start: 

( 

push_id(BOTTOM_ID); 

); 

push_new_SB_ID_DECL_DICTIONARY: 

( 

push_objec t(ne w S B_I D_DECL_DICTION ARY 0); 

}; 



/* define the id stack and the object pointer stack */ 



typedef struct OBJECT_STACK_RECORD 

{ 

void *object_point; 

OBJECT_STACK_RECORD *ncxt_record; 
} OBJECT_STACK_RECORD; 

typedef struct ID_STACK_RECORD 

( 

char *id; 

ID_STACK_RECORD *next_record; 

} ID_STACK_RECORD; 

typedef struct NAME_STACK_RECORD 

( 

char *name; 

NAME_STACK_RECORD *next_record; 

} NAME_STACK_RECORD; 
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char B0TT0M_ID_MARKER[2]="#"; /* used as a bottom of idjist marker */ 
char *BOTTOM_ID=(char *)BOTTOM_ID_MARKER; 

OBJECT_STACK_RECORD *top_object_in_stack=NULL; 

ID_STACK_RECORD *top_id_in_stack=NULL; 

ID_STACK_RECORD *top_rid_in_stack=NULL; 

NAME_STACK_RECORD *top_name_in_stack=NULL; 

void push_object(void *new_object) 

{ 

OBJECT_STACK_RECORD *new_object_record=new OBJECT_STACK_RECORD; 
new_object_record->object_point=new_object; 
new_object_record->next_record=top_object_in_stack; 
top_object_in_stack=new_object_record; 

); 



void *top_object() 

{ 

void *retum_object=NULL; 
if(top_object_in_stack!=NULL) 

( 

retum_object=top_object_in_stack->object_point; 

) 

else 

{ 

cerr « "error in object stack tried to view top object that was null\n"; 

); 

return retum_object; 

}; 



void *pop_object() 

{ 

void *retum_object=NULL; 

OBJECT_STACK_RECORD *temp_point=top_object_in_stack; 
i f (top_obj ec t_i n_s tac k ! = N ULL) 

{ 

retum_object=top_object_in_stack->object_point; 
top_object_in_stack=top_object_in_stack->next_record; 
delete temp_point; 

} 

else 

( 

cerr « "PARSER: error in object stack read past end\n"; 

); 

return retum_object; 

); 

void push_rid(char *new_id) 

( 

ID_STACK_RECORD *new_id_record=new ID_STACK_RECORD; 
new_id_record->id=new_id; 
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new_id_record->next_record=top_rid_in_stack; 

top_rid_in_stack=ncw_id_record; 

}; 



char *top_rid() 

( 

char *retum_id=NULL; 
i f (top_rid _in_stack !=NULL) 

( 

retum_id=top_rid_in_stack->id; 

}; 

return retum_id; 

}; 



char *pop_rid() 

( 

char *retum Jd=NULL; 
if(top_rid_in_stack!=NULL) 

( 

return_id=top_ridJn_stack->id; 
ID_STACK_RECORD *temp_point=top_rid_in_stack; 
top_rid_in_stack=top_rid_in_stack->next_record; 
delete temp_point; 



else 

( 

cerr « ’’PARSER: error in rid stack read past end\n"; 

}; 

return returned; 



void push_id(char *new_id) 

( 

ID_STACK_RECORD *ncw_id_rccord=new ID_STACK_RECORD; 
ncw_id_rccord->id=new_id; 
new_id_record->next_record=top_id_in_stack; 
top_id_in_stack=new_id_record; 

}; 



char *top_idO 

{ 

char *relum_id=NULL; 
if(top_id_in_stack!=NULL) 

{ 

retum_id=top_id_in_stack->id; 

) 

else 

( 

cerr « "PARSER: error in id stack looked at NULL record^" 

}; 

return retum_id; 
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char *pop_id() 

( 

char *retum_id=NULL; 
if(top_id_in_stack!=NULL) 



retum_id=top_id_in_stack->id; 
ID_STACK_RECORD *temp_point=top_id_in_stack; 
top_id_in_stack=top_id_in_stack->next_record; 
delete temp_point; 



else 

( 

cerr « "PARSER: error in id stack read past end\n"; 

}; 

return retumjd; 

}; 
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APPENDIX D - INTEGRATING ADA 
COMPONENTS INTO CAPS 



Once a reusable component has been retrieved it must be transformed for use in the 
prototype being developed. As previously discussed, this requires that the names for 
parameters, streams, operators, and types be changed to match those of the query 
component. Along with this transformation the execution support system expects several 
naming conventions to be followed for Ada components. This appendix will discuss how 
an Ada reusable component can be transformed into the domain of the query component 
as well as the naming conventions the execution support system expects for Ada 
components. An example of the transformation process is also included. 

A. ADA REUSABLE COMPONENT NAMING CONVENTIONS 

The execution support system requires that all Ada reusable components are 
implemented via packages. To simplify the process of identifying package names the 
following conventions are used. 

1. Operators 

An operator with an ID of operator_name will be implemented in a package 
named operator_name_pkg. The operator itself will be implemented by the procedure 
operator_name_pkg.operator_name. 
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2. Types 



A PSDL type with an ID of psdl_type_name will be implemented in a package 
named psdLtype_name_pkg. 



B. EXAMPLE 



1. Query Specification 

type integer_set 
specification 

integer_set : ADT 

operator create 
specification 
output 

the_set : integer_set 
end 

operator insert 
specification 
input 

x : integer, 
in_set : integer_set 

output 

out_set : integer_set 
end 

operator remove 
specification 
input 

x : integer, 
in_set : integer_set 

output 

out_set : integer_set 
end 

operator member 
specification 
input 

x : integer, 
in_set : integer_set 

output 

result : boolean 
end 
end 
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2. Library Specification Located As A Match 



type set 
specification 

generic t : GENERIC.TYPE, 

block.size : GENERIC. VALUE, 
eq : GENERIC.PROCEDURE 

set : ADT 



operator empty 
specification 
output 



end 



s : set 



operator add 
specification 
input 



x : t, 
si : set 



end 



output 

so : set 



operator remove 
specification 
input 

x : t, 
si : set 



end 



output 

so : set 



operator member 
specification 
input 

x : t, 
s : set 



end 



output 

v : boolean 



operator union 
specification 
input 

output 



end 



sl,s2 : set 
s3 : set 
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operator difference 
specification 
input 

sl,s2 : set 

output 

s3 : set 



end 



operator intersection 
specification 
input 

sl,s2 : set 

output 

s3 : set 



end 



operator size 
specification 
input 



s : set 



end 



output 

v : natural 



operator equal 
specification 
input 

output 



end 



sl,s2 : set 
v : boolean 



operator subset 
specification 
input 

output 



end 



sl,s2 : set 
v : boolean 



keywords SET 



description { SET ADT WITH OPERATIONS FOR EMPTY, ADD, SUBSET, EQUAL } 
end 
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3. Matching Map 

TYPE set -> integer_set 
MAP 

set -> integer_set 

GENERIC 

t -> integer 

eq -> UNDEFINED 

OPERATOR empty -> create 
MAP 

OUTPUT 

s : set -> new_set : integer_set 

END 

OPERATOR add -> insert 
MAP 

INPUT 

x : t -> x : integer, 
si : set -> in_set : integer_set 
OUTPUT 

so : set -> out_set : integer_set 

END 

OPERATOR remove -> remove 
MAP 

INPUT 

x : t -> x : integer, 
si : set -> in_set : integer_set 
OUTPUT 

so : set -> out_set : integer_set 

END 

OPERATOR member -> member 
MAP 

INPUT 

x : t -> x : integer, 
si : set -> in_set : integer_set 
OUTPUT 

v : boolean -> result : boolean 

END 

END 



The grammar that defines this mapping language is included in this Appendix. 
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4. Generated Ada Code 



From this matching map the following Ada specification and implementation 
can be generated to implement integer_set. 



C. ADA SPECIFICATION 



with sb_set_pkg; 
package integer_set_pkg is 

type integer_set is private; 

procedure create(new_set : out integer_set); 

procedure insert(x : in integer; 

in_set : in integer_set; 
out_set : out integer_set); 

procedure remove(x : in integer; 

in_set : in integer_set; 
out_set : out integer_set); 

procedure member(x : in integer; 

in_set : in integer_set; 
result : out boolean); 



private 

package sb_set_pkg_to_i nteger_.se t_pkg is new sb_set_pkg(integer, UNDEFINED); 
integer_set is subtype sb_set_pkg_to_integer_set_pkg.set; 
end integer_set_pkg; 
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D. ADA IMPLEMENTATION 



package body integer_set_pkg is 

procedure create(new_set : out integer_set) is 
begin 

sb_set_pkg_to_integer_set_pkg.empty(new_set); 

end; 

procedure insert(x : in integer; 

in_set : in integer_set; 
out_set : out integer_set) is 

begin 

sb_set_pkg_to_integer_set_pkg.insert(x,in_set,out_set); 

end; 

procedure remove(x : in integer; 

in_set : in integer_set; 
out_set : out integer_set) is 

begin 

sb_set_pkg_to_integer_set_pkg.remove(x,in_set,out_set); 

end; 

procedure member(x : in integer; 

in_set : in integer_set; 
result : out boolean) is 

begin 

sb_set_pkg_to_integer_set_pkg.member(x, in_set, result); 

end; 

end integer_set_pkg; 
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E. PSDL MATCHING MAP GRAMMER (YACC INPUT FORMAT) 



%start psdl_map 

% token ID OPERATOR MAPS.TO MAP END TYPE GENERIC COMMA INPUT OUTPUT 
%token COLON UNDEFINED 



%% 



psdl_map: 

operator_map 

I 

type_map 

operator_map: 

OPERATOR 

library_id 

MAPS.TO 

query_id 

MAP 

operator_attrib utes 
END 

type_map: 

TYPE 

library_id 

MAPS_TO 

query_id 

MAP 

type_attributes 

END 

type_attributes: 
adt_map_list 
generic_map_list 
opera tor_map_l ist 

adt_map_list: 

{/♦OPTIONAL*/) 

I 

map_type_list 

generic_map_list: 

{/♦OPTIONAL*/} 

I 

GENERIC 

map_type_list 
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operator_map_list: 
opera tor_map_list 
COMMA 
operator_map 
I 

operator_map 

operator_attributes: 

generic_map_list 

inpul_map_list 

output_map_list 

exception_map_list 

input_map_list: 

{/♦OPTIONAL*/) 

I 

INPUT 

map_decl_list 

output_map_list: 

{/♦OPTIONAL*/) 

I 

OUTPUT 

map_decl_list 

exception_map_list: 

{/♦OPTIONAL*/} 

I 

EXCEPTION 

map_exception_list 

map_decl_list: 

map_decl_list 

COMMA 

map_decl 

I 

map_decl 

map_decl: 

Iibrary_id 
COLON ' 
library _lype_id 
MAPS.TO 
query Jd 
COLON 
query_type_id 
I 

library_id 

MAPS.TO 

UNDEFINED 



map_type_lisi: 

map_type_list 

COMMA 

map_type 

I 

map_type 

map_type: 

library_type_id 

MAPS.TO 

query_type_id 

I 

library_type_id 

MAPS.TO 

UNDEFINED 

map_exception_list: 

map_excepiionJist 

COMMA 

map_exception 

I 

map_exception 

map_exception: 
library Jd 
MAPS_TO 
query Jd 
I 

libraryjd 

MAPSJTO 

UNDEFINED 

I 

UNDEFINED 

MAPSJTO 

query_id 

libraryjd: 

id 

query_id: 

id 

library_type_id: 

id 

query_typejd: 

id 



id: 



ID 
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APPENDIX E - COMMAND LINE INTERFACE 

SPECIFICATION 

The software base has been implemented with a command line interface to simplify 
its integration into CAPS. This Appendix provides a detailed specification of the 
command line interface for the software base. 

The following is a list of the software base commands available and how to used 
them. Each command is prefixed by the name of the software base executable (i.e. 
caps_software_base). 

A. MAKE NEW SOFTWARE BASE LIBRARY 

1. Command 

ml library _name type_matching_rule_file 

2. Description 

Creates a new reusable component library within the software base named 
library_name using the type matching rules specified in the file 
type_matching_rule_file. See Appendix A for a description of the contents of the type 
matching rule file. 

3. Example 

%caps_software_base ml Ada Ada_rule_file 
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B. DELETE SOFTWARE BASE LIBRARY 



1. Command 

dl library_name 

2. Description 

Deletes the library library_name from the software base and all of the 
components in this library. 

3. Example 
%caps_software_base dl Ada 

C. ADD A COMPONENT TO A SOFTWARE BASE LIBRARY 

1. Command 

ca library _name psdl_file imp_spec imp_body 

2. Description 

Adds the component specified in psdl_file to the library named library _name. 
The implementation source code is in the files imp_spec and impjbody. 

3. Example 

%caps_software_base ca Ada sb_set.psdl sb_set.spec.a sb_set.body.a 
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D. DELETE A COMPONENT FROM A SOFTWARE BASE LIBRARY 



1. Command 

cd library_name component_name 

2. Description 

Deletes the component named component_name from the library named 
libraryname. 

E. UPDATE A COMPONENT IN A SOFTWARE BASE LIBRARY 

1. Example 

%caps_software_base cd Ada sb_set 

2. Command 

cu library_name psdl_file imp_spec imp_body 

3. Description 

Update the existing component specified in psdl_file with the new 
specification given in psdl_file and the new implementation given in the files imp_spec 
and impbody. 

4. Example 

%caps_software_base cu Ada set.psdl new_set.spec.a new_set.body.a 
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F. VIEW A COMPONENT IN A SOFTWARE BASE LIBRARY 



1. Command 

cv library _name component_name sb_set.psdl sb_set.spec.a sb_set.body.a 

2. Description 

Generate text files for viewing the component component_name which is in 
library Iibrary_name. The text is written to the files specified by psdl_file, imp_spec, 
imp_body. 

3. Example 

%caps_software_base cv Ada sb_set.psdl sb_set.spec.a sb_set.body.a 

G. LIST OF KEYWORDS IN A SOFTWARE BASE LIBRARY 

1. Command 

kwl library_name output_file 

2. Description 

Generate a list of keywords defined in library library name. This list is 
provided to allow the formulation of keyword queries or when selecting keywords for a 
new component. The list of keywords is written to the file output_file. 

3. Example 

%caps_software_base kwl Ada keyword_list 
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H. LIST OF COMPONENTS IN A SOFTWARE BASE LIBRARY 



1. Command 

cl library_name output_file 

2. Description 

Generate a list of component names defined in library library_name. This list 
can be used for named look up of components in the software base. The list is written to 
the file outputfile. 

3. Example 

%caps_software_base cl Ada component_list 

I. LIST OF PSDL TYPES IN A SOFTWARE BASE LIBRARY 

1. Command 

tl library_name output_file 

2. Description 

Generate a list of PSDL type components defined in library library_name. 
This list can be used for named look up of type components in the software base. The 
list is written to the file output_file. 

3. Example 

%caps_software_base tl Ada type_list 
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J. LIST OF PSDL OPERATORS IN A SOFTWARE BASE LIBRARY 



1. Command 

ol library_name output_file 

2. Description 

Generate a list of PSDL operator components defined in library 
library name. This list can be used for named look up of components in the software 
base. The list is written to the file output_file. 

3. Example 

%caps_software_base ol Ada operator_list 

K. KEYWORD QUERY 

1. Command 

kwq library_name keyword_list output_file 

2. Description 

Perform a keyword query on library library name using the keywords in the 
file keywordlist and write the output to output_file. The output file contains the 
component name, the percentage of keywords matched, and the first line of the 
description of the component. 

3. Example 

%caps_software_base kwq Ada query_keyword_list result_list 
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L. COMPONENT QUERY 



1. Command 

cq library_name psdl_file output_file 

2. Description 

Performs a query by specification on the library library_name using the 
PSDL specification in psdl_file for the query. Writes the output to outpuMile. The 
output file contains the name of the component, the percentage score from semantic 
matching, and the first line of the description for the component. 

3. Example 

%caps_software_base cq Ada query. file result_file 

M. GENERATE MATCHING MAP 

1. Command 

cgm library_name psdl_file component_name output_file 

2. Description 

Generate a matching map of how the component component_name matches 
the PSDL specification in psdl_file and writes the map to the file outpuMile. This 
function is currently not implemented. 

3. Example 

%caps_software_base cgm Ada query. psdl result_file 
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N. COMPONENT DIAGNOSTICS 



1. Command 

cdiag library_name component_name output_file 

2. Description 

Creates a text file that contains diagnostic information about the component. 

3. Example 

%caps_software_base cdiag Ada sb_set 
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APPENDIX F ■ CAPS SOFTWARE BASE 
GRAPHICAL USER INTERFACE USERS 

MANUAL 



A. BASIC MOUSE TECHNIQUES 

1. Clicking 

Clicking the mouse means moving the cursor to the desired location and 
pressing the left mouse button and then releasing it. 

2. Double Clicking 

Double clicking means clicking the mouse on an item twice in rapid 
succession. This technique is often used to select an item from a list of items. 

3. Dragging 

Dragging and item is accomplished by moving the cursor to the desired item 
and pressing the left mouse button. While holding the button down the item can be 
moved (dragged) to the desired location. To complete the operation simply release the 
mouse button. 

4. Push Buttons 

A button is pushed by clicking the left mouse button while the mouse cursor is 
over the button. Pushing a button will cause the labeled action to take place. 
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5. Pull Down Menus 



A pull down menu is selected by clicking the left mouse button on the menu 
title and holding the button down. A list of the available options for this menu will be 
displayed. To select one of the available options move the mouse to the option (a 
highlighted bar will follow the mouse) and let up on the mouse button. Letting up on the 
mouse button anywhere outside of the pull down menu's option list will take no action. 

6. Scrolling 

1. Click on scroll bar arrows to scroll display one line in the desired direction. 

2. Click above or below the scroll bar display icon to move up or down a page of 
information. 

3. Drag the scroll bar display icon to the desired position in the view. 

4. Use the middle mouse button to get the "Grabber Hand" which can be used to 
move the display. This method can be used on all scrolling views even if there is 
no scroll bar. This is useful for string editors that have no scroll bars. 

7. Sizing Windows 

All of the windows in the Software Base user interface have been designed to 
allow resizing to user preferences. The method used to resize a window depends on the 
version of XI 1 window manager that is in use. The examples in this manual are for the 
OpenWindows manager. 

To resize a windows, In OpenWindows, simple drag any comer of the window 
in the desired direction and the window will be resized. 
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B. STARTING THE SOFTWARE BASE GRAPHICAL USER INTERFACE 



The Software Base graphical user interface is started by executing the command 
softbase.exe from the command line. The path for the CAPS executables must be in your 
path. Currently you must be either working on suns5 or rxterm'ed to suns5 to use this 
interface. This is due to the requirement that the Interviews 3.0 libraries must be 
mounted for the interface to execute. These libraries are currently only mounted on 
suns5. 

C. CAPS SOFTWARE BASE MAIN MENU (FIGURE F.l) 

The CAPS Software Base main menu is the top level of the Software Base 
Browsing System. From here all options of the Software Base are available. These 
options are to add new components, update existing components, delete components, 
browse by keyword, browse operators, browse types, query for a given specification, 
and get on-line help (The help system is currently not implemented). 

These options are organized into four categories: File, Browse, Query, and Help. 
These categories make up the main menu for the system. 

1. File 

The file option is a pull down menu of operations. These operations are Add 
Component, Update Component, and Quit. See section A. 5 for details on how to select 
pull-down menu items. 
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Figure - F.l Main Menu 

a. Add Component 

When this option is chosen the user will be prompted for the input files 
by the input file selection window. See section D for a detailed description of how to use 
this window. 

Once the input files have been selected the system attempts to add the 
component to the software base. If an error occurs an error display will be provided. If 
no errors have occurred the input window will be removed from the screen to indicate a 
successful addition. 

b. Update Component 

This option is used to provide an updated version of an existing 
component. The method used is the same as for adding components except that the new 
PSDL specification and implementation files will replace those that are currently in the 
software base. 
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c. Quit 



This option quits the Software base Browsing system. 

2. Browse 

The browse option is a pull-down menu of browsing operations. These 
operations are By Keyword, By Operator, and By Type. See section I for details on how 
to select pull-down menu items. 

a. By Keyword 

Browsing by keyword means that the user will provide a list of desired 
keywords via the Keyword Selection Window and then will be given a Component 
Selection Window containing of those components in the software base which are 
members of at least one of those keyword categories. 

The contents of the Component Selection Window are ordered such that 
those components which are members of more of the desired keyword categories are 
first. See section E for more information on using the Keyword Selection Window and 
section F for use of the Component Selection Window. 

b. By Operator 

Browsing by operator provides a Component Selection Window 
containing all of the operator components in the software base. These components are 
ordered alphabetically. See section F for details of how to use the Component Selection 
Window. 
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c. By Type 

Browsing by operator provides a Component Selection Window 
containing all of the type components in the software base. These components are 
ordered alphabetically. See section F for details of how to use the Component Selection 
Window. 

3. Query 

The query option allows for a query of the software base based on a given 
PSDL specification. The user is prompted for a query specification with the Query 
Specification Window. If any components were found that match the query specification 
then a Component Selection Window is provided with all of the names of the matches in 
it. See section VII for details on the Component Selection Window. 

4. Help 

This option provides an on-line version of this manual (not implemented). 

D. INPUT FILE SELECTION WINDOW (FIGURE F.2) 

Inputs to the software base are made up of three text files. The PSDL specification, 
the implementation specification, and the implementation body. The input file selection 
window allows the selection of each of these files. 

The file selection boxes show the current working directory in the Directory Box, 
and all of the files in that directory in the rest of the box. Double clicking on a file in one 
of the file selection boxes selects that file. Double clicking on a directory in a file 
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selection box will change to that directory. A new directory can be entered manually by 
typing it in the Directory box. The name of the file can be entered manually by typing it 
into the File Name box. 
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Figure - F.2 Input File Selecter 

Once all of the input files have been entered pushing, OK will cause the input files 
to be processed. Pushing Cancel will cause the input operation to terminate. 



E. KEYWORD SELECTION WINDOW (FIGURE F.3) 



This window allows the selection of keywords for a keyword search of the software 
base. All keyword categories in the software base are list in the left hand Box. Double 
clicking on a keyword will add it to the Keyword Selected box on the right hand side. 
Double clicking on keywords in the Selected box will remove them. Once the desired 
keywords have been selected pushing OK will start the search of the software base. 
Pushing Cancel will abort the search. 
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Figure - F.3 Keyword Selecter 



F. COMPONENT SELECTION WINDOW (FIGURE F.4) 



This window displays a list of component names and a one line description of each 
component. Double clicking on a component will bring up a view of that components 
PSDL specification. See section VIII for details on using this view. This window is not 
removed automatically when a component is selected for viewing so that multiple 
components can be viewed simultaneously. To remove this window form the display 
push the cancel button. Pressing the OK button will view the currently selected 
component. 
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Figure - F.4 Component Selecter 

G. PSDL SPECIFICATION VIEWING WINDOW (FIGURE F.5) 

This window displays the PSDL specification for a given component and allows 
various actions to take place on that component. The action available are: printing the 
specification, saving the specification to a file, deleting the component from the software 
base, viewing the components Ada specification, and searching for a given text string in 
the specification. 

I. File 

This is a pull-down menu for the print, save, delete, and quit view operations. 

a. Print 

Causes a printout of the specification to be spooled to the default printer. 

b. Save As 

Prompts the user for a file name and saves the specification to that file. 
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c. Delete 



The system verifies that no other components are dependant on this 
component and if not allows the user to confirm that they wish to remove this component 
from the software base. 

d. Quit View 

Removes this view from the display. 
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Figure - A. 5 PSDL Specification Viewing Window 



2. Find 

Prompts for text to search for and if found repositions the cursor to that text 
(not implemented). 

3. View Ada Specification 

Provides the Ada Specification Viewing Window for this component. 
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H. ADA SPECIFICATION VIEWING WINDOW (FIGURE F.6) 



This window displays the Ada specification for a given component and allows 
various actions to take place on that component. The action available are: printing the 
specification, saving the specification to a file, viewing the components Ada body, and 
searching for a given text string in the specification. 
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Figure - F.6 Ada Specification Viewing Window 



1. File 

This is a pull-down menu for the print, save, and quit view operations. 

a. Print 

Causes a printout of the specification to be spooled to the default printer. 

b. Save As 

Prompts the user for a file name and saves the specification to that file. 
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c. Quit View 

Removes this view from the display. 

2. Find 

Prompts for text to search for and if found repositions the cursor to that text 
(not implemented). 

3. View Ada Body 

Provides the Ada Body Viewing Window for this component. 

I. ADA BODY VIEWING WINDOW (FIGURE 7) 

This window displays the Ada body for a given component and allows various 
actions to take place on that component. The action available are: printing the body, 
saving the body to a file, and searching for a given text string in the body. 

1. File 

This is a pull-down menu for the print, save, and quit view operations. 

a. Print 

Causes a printout of the body to be spooled to the default printer. 

b. Save As 

Prompts the user for a file name and saves the body to that file. 

c. Quit View 

Removes this view from the display. 
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2. Find 



Prompts for text to search for and if found repositions the cursor to that text 
(not implemented). 
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Figure - F.7 Ada Body Viewing Window 
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APPENDIX - G SOFTWARE BASE GRAPHICAL 
USER INTERFACE SOURCE CODE 



All of the classes with the extension of "-core" in their name are implemented with 
code generated by the ibuild tool which is part of Interviews 3.0b [Ref 19]. This code is 
not presented here since it was machine generated. The class definitions for these "core 
classes" are included since the leaf classes inherit from the "core classes". Ibuild 
generated skeletons for the leaf classes. All that was required to implement this GUI was 
the addition of the code for each of the leaf class methods. 
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#ifnd ef SB_main.menu_core-h 
#def ine SB_main_menu_core_h 

#include ClnterViews/scene . h> 

class Menultem; 

class SB_main_menu_core : public MonoScene { 
public: 

SB_main.menu_core(const char*); 
virtual void -AddComponentQ; 
virtual void _UpdateComponent(); 
virtual void quit(); 
virtual void browse.by.keyword(); 
virtual void browse.by_type(); 
virtual void brovvse_by_operator(); 
virtual void query (); 
virtual void _Help(); 
protected: 

lnteractor* Interior(); 
protected: 

Menultem* the_menu_file_quit; 

Menultem* the .menu .browse -keyword; 
Menultem* the_menu.browse_type; 
Menultem* the mi enu .browse -by .operator; 
Menultem* the_menu_query; 

}; 



#endif 



#ifndef SB_main_menu.h 
#define SB_main_menu_h 



#include ”SB_main_menu-core . h” 

class SB_main_menu : public SB_inain.menu.core { 
public: 

SB_main_menu(const char*); 

virtual void _AddComponent(); 
virtual void _UpdateComponent(); 
virtual void quit(); 
virtual void browse. by_keyword(); 
virtual void browse.by_type(); 
virtual void browse_by_operator(); 
virtual void queryQ; 
virtual void _Help(); 

}; 



#endif 



#ifndef body_viewer.core_h 
#def ine body_viewer_core_h 

#include ClnterViews/scene . h> 

class HBox; 
class Message; 
class MenuBar; 
class PulldownMenu; 
class TextEditor; 
class ButtonState; 

class body .viewer-core : public MonoScene { 

public: 

body_viewer_core(const char*); 
virtual void _Saveas(); 
virtual void _Print(); 
virtual void _QuitView(); 
virtual void _Find(); 
protected: 

Interactor* Interior(); 
protected: 

HBox* the_file_name; 

Message* default .message; 

MenuBar* menu.bar; 

PulldownMenu* file-menu; 

TextEditor* the.editor; 

}; 



#endif 



#ifndef body.viewer Ji 
#define body_viewer_h 

#include ”body_viewer-core . h” 

class body.viewer : public body.viewer.core { 

private: 

char* thejstring; 
char* component Jiame; 

TextBuffer *the.buffer; 



public: 

body.viewer(const char*component_name, char *body.file) 



virtual void JSaveas(); 
virtual void JPrint(); 
virtual void .QuitView(); 
virtual void _Find(); 



#endif 



#ifndef component«selecter_core Ji 
#def ine component .selecter .core _h 

#include <InterViews/scene . h> 

class StringBrowser; 
class ButtonState; 
class PushButton; 

class component_selecter_core : public MonoScene { 
public: 

component-selecter_core(const char*); 
virtual void selected(); 
virtual void cancelQ; 
virtual void okay(); 
protected: 

Interactor* Interior(); 
protected: 

ButtonState* the.browser J3S; 

ButtonState* the.cancel J3S; 

ButtonState* the.ok.BS; 

StringBrowser* the .browser; 

PushButton* cancel-button; 

PushButton* ok-button; 

}; 



#endif 



#ifndef component_selecter Ji 
#define component.selecter Ji 

tfinclude ” component_selecter-core . h” 

#include <stream.h> 

class componentjselecter : public component_selecter_core { 

public: 

component jselecter(const char*); 

void Insert _components(); 

void lnsert_components( char *file_name); 

virtual void selected(); 

virtual void cancel(); 

virtual void okay(); 

}; 



#endif 
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#ifndef delete_warning_core_h 
#define delete_warning_core_h 

#include ClnterViews/dialog . h> 

class ButtonState; 

class delete_vvarning_core : public Dialog { 
public: 

delete-warning_core( const char* ) ; 

protected: 

Interactor* Interior(); 
protected: 

}; 



#endif 



266 



#ilndef delete_warning_h 
#define delete.warning Ji 

#include ”delete_warning-core . h” 

class delete.warning : public delete_warnmg_core { 

public: 

delete_warning(const char*); 



}; 



#endif 
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#ifndef dependancy_selecter xore_h 
#define dependancy_selecterxore _h 

#include <InterViews/scene . h> 

class Message; 
class StringBrovvser; 
class ButtonState; 
class PushButton; 

class dependancy_selecter jcore : public MonoScene { 

public: 

dependancy .selecter xore( const char*) ; 
virtual void nevv_selection(); 
virtual void removejselectionQ; 
virtual void cancel(); 
virtual void okay(); 
protected: 

Interactor* Interior(); 
protected: 

ButtonState* the_choice_BS; 

ButtonState* the_selected_BS; 

ButtonState* canceLBS; 

ButtonState* okay_BS; 

Message* the_name; 

Message* the_choice_message; 

StringBrovvser* choice-browser; 

Message* the-selected .message; 

StringBrovvser* selected .browser; 

PushButton* the.cancel .button; 

PushButton* the.ok.button; 

}; 



#endif 
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#ilndef dependancy-selecter _h 
#define dependancy_selecter_h 

#include ”dependancy_selecter-core .h” 

class dependancyjselecter : public dependancy_selecter.core { 

public: 

dependancyjselecter(const char*); 

void Insert_components(); 
virtual void new_selection(); 
virtual void remove_selection(); 
virtual void cancel(); 
virtual void okay(); 

}; 



Sendif 
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#ilndef error .viewer -core Ji 
#def ine error .viewer .core Ji 

#include <InterViews/scene . h> 

class HBox; 
class Message; 
class TextEditor; 
class ButtonState; 

class error.viewer.core : pmblic MonoScene { 

public: 

error .viewer _core( const char*); 
virtual void ok_action(); 
protected: 

Interactor* InteriorQ; 
protected: 

ButtonState* ok.BS; 

HBox* the_file_name; 

Message* default .message; 

TextEditor* the.editor; 

}; 



#endif 



#ifndef error .viewer Ji 
#def ine error_viewer_h 
#include <InterViews/textbuf f er .h> 

#include ”error_viewer-core .h” 

class error.viewer : public error.vievver.core { 
private: 

TextBuffer *the_buffer; 

public: 

error _viewer(const char*name, char terror -file); 
void ok_action(); 



}; 



#endif 



#ifndef input _file_selecter_core _h 
#define input Jilejselec ter .core _h 

#include <InterViews/scene . h> 

class StringEditor; 
class ButtonState; 
class FileBrowser; 

class input_file_selecter_core : public MonoScene { 

public: 

input _file_selec ter .core (const char*); 
virtual void new_psdl_file_name(); 
virtual void update_pdsl_dir(); 
virtual void psdl_selected(); 
virtual void new_spec_file_name(); 
virtual void update_ada_spec_dir(); 
virtual void spec_selected(); 
virtual void new_body_file_name(); 
virtual void update_ada^body_dir(); 
virtual void body_selected(); 
virtual void cancel(); 
virtual void okay(); 
protected: 

Interactor* Interior(); 
protected: 

ButtonState* psdl _file_name_BS; 

ButtonState* psdLdir.BS; 

ButtonState* psdLBS; 

ButtonState* spec _file_naineJBS; 

ButtonState* ada_spec jdir.BS; 

ButtonState* spec_files_BS; 

ButtonState* body _file_name_BS; 

ButtonState* ada.body.dir.BS; 

ButtonState* body_filesJBS; 

ButtonState* canceLBS; 

ButtonState* okay_BS; 

StringEditor* psdl _file_nanie; 

StringEditor* psdLdir; 

FileBrowser* psdlJiles; 

StringEditor* spec _file_name; 

StringEditor* ada_spec_dir; 

FileBrowser* spec-files; 

StringEditor* body _file_naine; 

StringEditor* ada_body_dir; 

FileBrowser* bodyJiles; 

}; 



#endif 
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#ifndef input _file_selecter -h 
#define input_file_selecter Ji 

#includ© ”input_f ile_selecter-core.h” 



class input_file_selecter : public input_file_selecter_core { 
public: 

input _file_selecter(const char*); 



virtual void new_psdLfiIe_name(); 
virtual void update_pdsl_dir(); 
virtual void psdl_selected(); 
virtual void new_spec_file_name(); 
virtual void update.ada^spec_dir(); 
virtual void spec-selected(); 
virtual void new_body_file_name(); 
virtual void update_ada^body_dir(); 
virtual void body_selected(); 
virtual void cancel(); 
virtual void okav(); 

}; 

#endil 
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#ifndef keyword .selec ter .core Ji 
#define keywordjselecter.core Ji 

#include <InterViews/scene . h> 

class Message; 
class StringBrowser; 
class ButtonState; 
class PushButton; 

class keyword_selecter_core : public MonoScene { 

public: 

keyword -selecter _core(const char* ) ; 
virtual void newjselectionQ; 
virtual void remove-selection(); 
virtual void cancel(); 
virtual void okay(); 
protected: 

Interactor* InteriorQ; 
protected: 

ButtonState* the.choice.BS; 

ButtonState* thej$elected_BS; 

ButtonState* cancel.BS; 

ButtonState* ok.BS; 

Message* the_name; 

Message* the.choice_niessage; 

String Browse r * ch oi ce _b rowser ; 

Message* the-selected .message; 
StringBrowser* selected .browser; 

PushButton* the.cancel .button; 

PushButton* the.ok.button; 

}; 



#endif 
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#ifndef keyword jselec ter Ji 
#define key word -selec ter _h 



#include ”keyword_selecter-core . h” 



class keyword_selecter : public keyword_selecter_core { 

public: 

keyword -select er( const char* ) ; 



void Insert -key words(); 
virtual void new_selection(); 
virtual void removejselectionQ; 
virtual void cancel(); 
virtual void okay(); 



#endif 



#ifndel psdl. viewer .core Ji 
#define psdl_viewer_core_h 

#include ClnterViews/scene . h> 

class HBox; 
class Message; 
class Menu Bar; 
class PulldownMenu; 
class Menultem; 
class TextEditor; 
class ButtonState; 

class psdLvi ewer .core : public MonoScene { 
public: 

psd 1 .viewer .core( cons t cliar * ) ; 
virtual void JSaveasQ; 
virtual void _Print(); 
virtual void _Delete(); 
virtual void .QuitViewQ; 
virtual void .Find(); 
virtual void view_spec_action(); 
protected: 

Interactor* Interior(); 
protected: 

HBox* the -file -name; 

Message* default .message; 

MenuBar* menu.bar; 

PulldownMenu* file_menu; 

Menultem* viewjspec; 

TextEditor* the.editor; 

}; 



#endif 



#ifndel psdLviewerJi 
#define psdLviewerJi 

#include ”psdl_viewer-core . h” 

#include <InterViews/textbuf f er . h> 
class psdLviewer : public psdl_viewer_core 
{ 

private: 

char *component_name; 
char *psdLfile; 
char *specJile; 
char *bodyJile; 
char *thejstring; 

TextBuffer *theJ)uffer; 



public: 

psdLviewer (const char*); 



virtual void JSaveasQ; 
virtual void .Print (); 
virtual void JDeleteQ; 
virtual void _QuitView(); 
virtual void _Find(); 
virtual void view_spec_action(); 
virtual void Handle(Event&); 



#endif 
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tiindef query _file_dialog-Core_h 
#define query _file_dialog_core_h 

#include <InterViews/dialog . h> 

class StringEditor; 
class ButtonState; 
class FileBrowser; 

class query Jile_dialog_core : public Dialog { 
public: 

query Jile_dialog_core(const char*); 

virtual void file_name_action(); 
virtual void directory_action(); 
virtual void file_browser-action(); 
virtual void canceLactionQ; 
virtual void okay_action(); 
protected: 

Interactor* Interior(); 
protected: 

ButtonState* dialog.BS; 

ButtonState* the_filejiame_BS; 
ButtonState* directory _name_BS; 
ButtonState* file_browser_BS; 
ButtonState* canceLBS; 

ButtonState* okay_BS; 

StringEditor* theJilejiame; 
StringEditor* directory _nanie; 
FileBrowser* theJile.browser; 

}; 



#endif 



#ifndef query Jile_dialogJi 
#define query _file_dialog_h 

#include ” query.f ile_dialog-core . h” 

class query _file_dialog : public query_file_dialog_core 

public: 

query Jile_dialog( const char*); 

virtual void file_nameLaction(); 
virtual void directory_action(); 
virtual void file_browser_action(); 
virtual void cancel_action( ); 
virtual void okay_action(); 
const char* file_uame(); 

}; 



#endif 



#ilndef save_browser_dialog.core_h 
#def ine save .browser jiialog_core_h 

#include <InterViews/dialog.h> 

class StringEditor; 
class ButtonState; 
class FileBrovvser; 

class save.brovvser -dialog-core : public Dialog { 
public: 

saveJbrowser _dialog_core( const char*); 

virtual void updateLfile_name(); 
virtual void update_directory(); 
virtual void file_browser_action(); 
virtual void canceLaction(); 
virtual void ok_action(); 
protected: 

Interactor* Interior(); 
protected: 

ButtonState* dialog.BS; 

ButtonState* file_name_BS; 

Button St at e* ne vv _d i rec t o r y _B S : 
ButtonState* file_browser_BS; 

ButtonState* canceLBS; 

ButtonState* ok.BS; 

StringEditor* the_file_name; 

StringEditor* the_directory_name; 
FileBrovvser* the_file_brovvser; 

}; 



#endif 
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#ilndef save .browser -dialog _h 
#define save .browser .dialog Ji 

#include ” save-browser-dialog-core . h” 

class save.browser .dialog : public save.browser_dialog.core 

{ . 

private: 

char * default-name; 



public: 

save.browser _dialog(const char*name); 



virtual void file.browser.actionQ; 
virtual void update_file_name(); 
virtual void update.directory(); 
virtual void cancel_action(); 
virtual void ok_action(); 
const cliar *file_naine(); 



#endif 



#ifndef spec .viewer _core_h 
#define spec .viewer .core _h 

#include <InterViews/scene . h> 

class HBox; 
class Message; 
class MenuBar; 
class Pulldown Menu; 
class Menultem; 
class TextEditor; 
class ButtonState; 

class spec. viewer. core : public MonoScene { 

public: 

spec_viewer_core(const chart); 
virtual void _Saveas(); 
virtual void _Print(); 
virtual void _QuitView(); 
virtual void _ Fiud(); 
virtual void view_body_action(); 
protected: 

Interactor* Interior(); 
protected: 

HBox* the_file_name; 

Message* default .message; 

MenuBar* menu.bar; 

PulldownMenu* file-menu; 

Menultem* view.body; 

TextEditor* the.editor; 

}; 



#endif 



#ifndef spec_viewer Ji 
#define spec_viewer _h 

#include ”spec_viewer-core . h” 

class spec_viewer : public spec_viewer_core { 

private: 

char *component_narne; 
char *body_file; 
char *thejstring; 

TextBuffer *the_buffer; 



public: 

spec_viewer(coust char*component_name, cliar*spec Jile, char *body_file); 

virtual void _Saveas(); 
virtual void _Print(); 
virtual void _QuitView(); 
virtual void _Find(); 
virtual void view_body_action(); 



#endif 



#include <InterViews/menu . h> 
#include ”SB-main_memi .h” 

#include <InterViews/button . h> 
#include ClnterViews/ interactor . h> 
# include <InterViews/2. 6/_enter .h> 
#include <InterViews/world .h> 
#include ”keyword_selecter . h” 
#include ”component_selecter .IT 
#include ” input.f ile.selecter . h” 
#include ” error.viewer . h” 

#include <stream.h> 

#include <strstream.h> 

#include <stdlib.h> 

#include <string.h> 

#include ’’query.f ile.dialog . h” 



#def ine TEMP ENVIRONMENT "TEMP" 
#def ine CAPSEN VIRONMENT "CAPS" 
#define DEFAULT.TEMP "/tmp" 
#define TL_PREFIX "tmptl" 

#define ERROR-PREFIX "tmperror" 
#def ine SBEROGRAM "sb" 



SB_main_menu::SB_main_menu(const cliar* name) : SB_main_menu_core(name) {} 

void SB_main_menu::quit() 

{ 

World* w=GetWorld(); 
w— quit(); 

} 

void SB_maiii_menu::bro\vse.by_kevword() 

{ 

World* w=GetWorld(); 

keyword-selecter* the -keyword .selecter=new keyword _selecter("the_key_word-selecter" 
the -key word fleeter — Insert .key words(); 

// the-keyword.selecter->SetName(” Keyword Selection”); 
w— dnsertToplevel( the-key word .selec ter, this); 

} 

void SB_main_menu::browse_by-tvpe() 

{ 

World* w=GetWorld(); 

componentjselecter* component_selecter_by_type=new 

component_selecter(" component .select erJby.type"); 

// create list of components 
int command-status; 
ostrstream command-buffer; 
ostrstream remove-buffer; 
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char *caps_dir = getenv(CAPS JENVIRONMENT); 
char *temp_dir = getenv(TEMP-ENVIRONMENT); 
if (temp_dir == NULL) 

{ 

temp.dir = new char[strlen(DEFAULT_TEMP) + 1]; 
strcpy( temp.dir, DEFAULT_TEMP); 

}; 



command-buffer <C SB.PROGRAM <C " tl ada 
char *list_file = tempnam(temp_dir, TL.PREFIX); 
char *error_file = tempnam(temp_dir, ERROR-PREFIX); 
command-buffer <C list-file <C " > " <C error_file <C ends; 

remove-buffer <C "rm "; 
remove-buffer <C error-file <C ends; 

char *rm_command = remove. buffer. str(); 

char ^command = command-buffer .str(); 
command.status=system( command); 
if (commandjstatus==0) 

{ 

// no error occured so pass the tl to the component selecter 
component jselecter.by -type— dnsertxomponents(list-file); 
w— ^Insert Application(component_selecter_by .type); 



} 

else 

{ 



/ / display error info 

cerr < “AN ERROR OCCURED WITH COMMAND n < command < M \n" 



// remove temp files 
system(rm-command); 
delete command; 
delete rm .command; 



}; 



void SB_main_menu::browse_by_operator() 

{ 

World* vv=GetWorld(); 

component jselecter* component .selecter .by _type=new 

component jselecter( M component _s elect er.by.type"); 
// create list of components 
int com mandat at us; 
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ostrstream command-buffer; 
ostrstream remove-buffer; 



char *caps_dir = getenv(CAPS ENVIRONMENT); 
char *temp_dir = getenv(TEMP-ENVIRONMENT); 
if (temp.dir == NULL) 

{ 

temp.dir = new char[strlen(DEFAULT_TEMP) + I] ; 
strcpv(temp_dir, DEFAULT-TEMP); 

}; 



command-buffer <C SB.PROGRAM " ol ada "; 
char *list_file = tempnam(temp_dir, TL-PREFIX); 
char *error_file = tempnam(temp_dir, ERROR-PREFIX); 
command-buffer <C list-file <C " > M error-file <C ends; 

remove-buffer M rm "; 

remove-buffer error .file <C ends; 

char *rm.command = re move, buffer. str(); 

char ^command = command_buffer.str(); 
command-status=system( command); 
if (command_status==0) 

{ 

// no error occured so pass the U to the component selecter 
component_selecter_by_type— ^Insert jcomponents(list-file); 
vv— Insert A pplication(component_selecter _by -type); 



} 

else 

{ 



// display, error info 

cerr < "AN ERROR OCCURED WITH COMMAND " < command "\tl" 



// remove temp files 
sy st em ( r m _co m m and); 
delete command; 
delete rm -command; 



} 

void SB-main_menu::query() 

{ 

World *w=GetWorld(); 

query -file -dialog* the_query_dialog=new 

query -file-dialog("the_query_dialog M ); 
w— dnsertTransient( the .query .dialog, this); 



286 



boolean status_flag=the_query .dialog— Accept(); 
if(status -flag) 

{ 

w— ►syncQ; 

int commancLstatus; 

ostrstream command.buffer; 
ostrstream remove .buffer; 

char *caps_dir = getenv(CAPS JENVIRONMENT); 
char *temp_dir = getenv(TEMP ENVIRONMENT); 
if (temp.dir == NULL) 

{ 

temp.dir = new char[strlen(DEFAULT.TEMP) + 1]; 
strcpy( temp.dir, DEFAULT .TEMP); 

}; 



command.buffer <C SB. PROGRAM <C " cq ada "; 
char *list_file = tempnam(temp.dir, TL.PREFIX); 
char *error_file = tempnam(temp_dir, ERROR-PREFIX); 
command.buffer <C the_query_dialog^file_name() " "; 
command.buffer <C list.file <C " > " <C error.file ends; 

remove.buffer <C "rm "; 
remove-buffer <C error iile <C ends; 

char *rm.command = removeLbuffer.str(); 

char ^command = command.buffer.str(); 
command_status=system(command); 
if (command_status==0) 

{ 

// no error occured so pass the tl to the component selecter 

component jselecter* component_selecter .by .query =new 
component J5electer(" component .select er.by.query"); 



component jselecter.by .query — ^Insert _components(list_file); 
w— * Insert Application(component_selecter_by .query); 



} 

else 

{ 



// display error info 
error.viewer *error_view=new 
error_viewer( M Add Component M , error.file); 
vv— ^Insert A pplication(error.view); 



// remove temp files 
system(rm.command); 
delete command; 

delete rm.command; 

}; 

vv— ^Remove(the.query.dialog); 
delete the .query -dialog; 



} 

void SB jnain.menu::.AddComponent() { 

World* w=GetWorld(); 

input _file_selecter* in Jile=iiew input _file_selecter(" in _f ile M ); 
w— Insert Application( in Jile); 

} 

void SB jnain.menu::.UpdateComponent() 

{ 

World* w=Get\Vorld(); 

input_file_selecter* in Jile=new input_file_selecter("in_f ile"); 
w— dnsertApplication(inJile); 



}; 



void SB _main.menu::_Help() 

{ 

system("doc -title 'Softbase Help* sof tbaseJielp . doc&") 

} 
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#include <InterViews/button . h> 

#include <InterViews/box .h> 

#include <InterViews/.message .h> 

#include <InterViews/menu . h> 

# include < InterViews/t ext editor . h> 

#include < InterViews/t extbuf f er . h> 

#include ”body_viewer . h” 

#include ” spec.viewer . h” 

#include ”body_viewer . h” 

#include ” saveJbrowser_dialog . h” 

#include <InterViews/world . h> 

#include <InterViews/2 . 6/_enter . h> 

#include <strstream.h> 

#include <stream.h> 

#include <stdlib.h> 

#include <string.h> 

body-viewer: :body_viewer( const char* name, char *body_file) : 
body_viewer_core(name) 

{ 

component Jiame=(char *)name; 
ostrstream view_name_buffer; 

view_name_buffer <C component-name <C "Implementation Body" <C ends; 
the .file .name— Remove( default-message) ; 
delete default-message; 

Message* the_file_message=new Message("f ile_name", 

view_name_buffer.str() , 

Center); 

the .file -name— dnsert(the_file_message); 
t he Ji le _n am e — C h ange( ) ; 

ifstream body(bodyJile); 
if (body) 

{ 

ostrstream construct -buffer; 
while(!body.eof()) 

{ 

char text=body.get(); 
if(text^EOF) 

{ 

construct -buffer, put (text); 

}; 

}; 

the jstring=construct -buffer. str(); 
int theJength=strlen(the-stnng); 

the_buffer=:new TextBuffer(the-String,theJength,the -length); 
the -editor^Edit( the -buffer); 

} 

else 

{ 
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cerr < "UNABLE TO OPEN BODY FILE TO VIEW FILE-NAME IS 

cerr <C body -file <C "\n"; 



}; 



} 

void body.viewer: :_Saveas() 

{ 

ostrstream def_name_buffer; 

def_name.buffer <C component-name “.body. a" <C ends; 
char *defmame=def_name_bufier.str(); 

save .browser .dialog *save_browser— new save_browser_dialog(def_name) 

World *w=GetWorld(); 

w—InsertTransient (save -browser, this); 

boolean save -flag— save -browser— Accept(); 

if(save_flag) 

{ 

ofstream output _file(save_browser—+file_name()); 

output -file the_string; 

output-file.close(); 

}; 



w— Re move (save -browser ) ; 
delete save.browser; 



} 

void body-viewer: :_Print() { 
/* unimplemented */ 

} 



void body_viewer::_Find() { 
/* unimplemented */ 

} 



void body_viewer::.QuitView() 

{ 

// remove temp file and remove application from the world 
World *w=GetWorld(); 
w — * Remo ve ( t h i s ) ; 
j j delete this; 



} 



290 



#include <InterViews/button . h> 

#include <InterViews/strbrowser . h> 

#include ” component.s elect er . h 1 ' 

#include <InterViews/2 . 6/_enter .h> 

#include <stream.h> 

#include <string.h> 

#include ClnterVievs/vorld . h> 

#include ”psdl_viever . h” 

#include <strstream . h> 

extern M C" 

{ 

int system (cliar *); 

}; 

#def ine MAX.NAME.LENGTH 256; 

component_selecter::componentj5electer(const char* name) : component_selecter_core(name) {} 

void component .selecter: :selected( ) 

{ 

int state.value; 

the_browser JBS — Get Value(state .value); 
if(state_value^O) 

{ 



World* w=GetWorld(); 
w— sync(); 

int selected Jndex= the J)rowser-^Selection(O); 
if(selectedJndex>0) 

{ 

cliar ^selected .buffers the -browser— 

String(selected Jndex); 

char *selected_name=new char[strlen(selected J)ufFer)+l]; 
int i=0; 

while(selected_buffer[i]/’ ’) 

{ 

selected _name[i]=selected_buffer[i]; 

i++; 

}; 

selected _name[i]=NULL; 

psdl.viewer* the_psdl_view=new 

psdl_viewer(selected_name); 
w — Insert Application(the_psdl_view); 

} 

else 

{ 

w — RingBell(lOO); 

}; 

the. browser JBS — SetValue(O); 
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} 



}; 



void component_selecter: :cancel( ) 

{ 

World* w=GetWorld(); 
w— Remove(tliis); 
delete this; 

}; 

void component j5electer::okay() 

{ 

int state .value; 

thejok_BS— GetValue(state.value); 
if(state_value^O) 

{ 

the_browser_BS— ►Set.Value(l); 
the.ok.BS — SetValue(O); 

}; 

} 



void component jselecter:: Insert _components() 

{ 

the.browser — Append("comp 1"); 
the.browser — Append("comp 2"); 
the.browser — Append( M comp 3"); 
the.browser— +Append(" comp 4 M ); 
the.browser— A ppend( M comp 5"); 
the.browser— A ppend(" comp 6"); 
the_browser^Append("comp 7 M ); 
the.browser— Append ("comp 8"); 
the.browser — Append("comp 9 M ); 
the.browser- Append(" comp 0 M ); 

}; 



void component.selecter::Insert_components(char *file_name) 

{ 



char the.component[256]; 

ifstream infile(file_name); 

infile ws; 
while(!infile.eof()) 

{ 

infile. getline(the.component, 256); 
the.browser— A ppend(the_component); 
in file ws; 

}; 
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ostrstream command; 

command <C M rm M <C file_name <C ends; 

char *the_command=command.str(); 

system(the_command); 
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#include <InterViews/button . h> 

#include ”delete_warning . h” 

#include <InterViews/2 . 6/_enter . h> 

delete_warning::delete_warning(const char* name) : delete_vvarning_core(name) {} 
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#include ClnterViews/message . h> 

#include ClnterViews/strbrowser . h> 

#include <InterViews/button . h> 

#include ”dependancy_selecter . h” 

#include <InterViews/world .h> 

#include <InterViews/2 . 6/_enter .h> 

dependancy_selecter::dependancy _selecter( const char* name) : dependancy -selecterxore(name) 

o 

void dependancy .selecter: .Insert xomponents( ) 

{ 

choice-browser-^ Append( " comp 1 " ) ; 
choice_browser-’+Append("comp 2"); 
choice -browser— Append( " comp 3" ) ; 
choice-browser— Append(" comp 4"); 
choice-browser^ Append( " comp 5" ) ; 
choice-browser— Append(" comp 6"); 
choice-browser— Append( " comp 7" ) ; 
choice-browser— Append(" comp 8"); 
choice-browser— ► A ppend(" comp 9 M ); 
choice-browser— A ppend(" comp 0"); 

}; 



void dependancy -selecter: mew .selectionQ 
{ 



int state.value; 

the_choice_BS— GetValue(state_value); 
if(state.value^O) 

{ 

// get the new selection and check it against the 

// selected list if it is not there than add it 

int selected _index=choice -browser— ►Selection(O); 

char *new-selection=choice_browser— >String(selected index); 

if( selected -browser— Index (new -selection) <0) 

{ 

// not in the selected browser so append it 
selected .browser— Append(new -selection); 
the_c.hoice_BS— SetValue(O); 

’ }; 

}; - 



} 

void dependancy jselecter : :remove -selection( ) 

{ 

int state_value; 

the_selected_BS— Get Value(state -value); 
if(state_value^O) 

{ 

// rewove the selected entry from the browser 
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int selected index=selected .browser— ►Selection(O); 
selected .browser— ► Remove(selected index) ; 
the.selected_BS — SetValue(O); 



} 

void dependancy-selecter::cancel() 

{ 

World* w=GetWorld(); 
w— ►Remove(tliis); 
delete this; 

} 

void dependancyjselecter::okay() { 
World* w=GetWorld(); 
w— Remove(this); 
delete this; 



} 



#include ’’error.viewer .h” 

#include CInterViews/button .h> 

#include <InterViews/box . h> 

#include <InterViews/message .h> 

#include <InterViews/menu.h> 

# include < InterViews/text edit or . h> 

#include ClnterViews/textbuf f er . h> 

#include <InterViews/world . h> 

# include < Inter Views/2 . 6 /.enter .h> 

#include <strstream.h> 

#include <stream.h> 

#include <stdlib.h> 

#include <string.h> 

error.viewer::error_viewer(const char* name, char *error_file) : 
error .viewer _core( name) 

{ 

os t rs t ream view _n ame.b ufTer ; 
view_name_bufTer <C "Error Messages” <C ends; 
t he Jile _n ame-^ Remove( default-message) ; 
delete default-message; 

Message* the Jile_message=iiew Message("error _f ile", 

view_name_buffer.str(), 

Center); 

t he Ji le _n a m e— I nser t ( t h e Ji le .message ) ; 
theJile_name — Change( ); 

ifstream error( error Jile); 

if (error) 

{ 

ostrstream construct .buffer; 
wliile(!error.eof()) 

{ 

char text=error.get(); 
if(text^EOF) 

{ 

construct .buffer. put (text); 

}; 

}; 

- char *the_string=construct .buffer. str(); 
int the Jength=strlen(the .string); 

the.buffer=new Text Buffer(the.string, the Jength, the Jength); 
the_editor— *Edit(the_buffer); 

} 

else 

{ 

cerr < "UNABLE TO OPEN BODY FILE TO VIEW FILE-NAME IS 

cerr <C error Jile <C ”\n"; 

}; 
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} 

void error_viewer::ok_action() 

{ 

World *w=GetWorld(); 
w— ► Remove(this); 

// delete this; 
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#include <InterViews/button.h> 
#include <InterViews/streditor .h> 
#include <InterViews/f ilebrowser ,h> 
#include ” input_f ile-selecter . h” 
#include ”error_viewer .h” 

#include <InterViews/2 . 6/_enter . h> 
#include <stream.h> 

#include <string.h> 

#include <strstream . h> 

#include <InterViews/world . h> 
#include <sys/param. h> 

#include <stdlib.h> 
extern "C M 
{ 

extern char * get wd( char *); 



}; 



#def ine TEMP -EN VIRONMENT "TEMP" 

#def ine CAPS.EN VIRONMENT "CAPS" 

#define DEFAULT-TEMP "/tmp" 

#define KWL-PREFIX "tmpkl" 

#define ERROR-PREFIX "tmperror" 

#define KWQ-PREFIX "tmpcl" 

#define SB-PROGRAM "sb" 

input_file_selecter::input _file_selecter(const char* name) : input _file_selecter_core(name) { 

char pathname[MAXPATHLEN]; 
getwd(pathname); 
psdl-files—Set Directory (pathname); 
specJiles— Set Directory (pathname); 
body-files— +Set Directory (pathname); 
psdl.dir— >Message(psdl .files— »Get Directory ()); 
ada_spec_dir— ^Message(psdLdir^TextQ); 
ada_body_dir— ► Message(psdLdir— *Text()); 



} 

void input_file_selecter::psdl_selected() 

{ 

int state.value; 

psdLBS— *GetValue(state_value); 
if(state_value^O) 

{ 

int index=psdl_files— Selection(O); 

if( psdl Jiles— ►Is A Directory ( psdl -files— ^ Pat h ( i ndex) ) ) 

{ 

psdLdir— ►Message(psdl_files^Path(index)); 
ada-spec_dir^Message(psdl -files^Path(index)); 
ada-body-dir— *Message(psdl Jiles-+Path( index)); 
psdl_files— Set Directory(psdl _dir— Text ()); 
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spec-files— >Set Directory (psdl jdir— Text()); 
body-files— ► Set Directory (psdl _dir—>Text()); 
psdl_file_name— Message(""); 
spec_file_name— ►Message( " " ) ; 
bodv_file_name— Message(""); 

} 

else 

{ 

psdl_file_name— Message(psdl_files— ►Path(index)); 

// update the other file names if the correct ones exist 

}; 

psdl-BS— SetValue(O); 

}; 

} 

void mput_file_selecter::update_pdsl_dir() { 
int state_value; 

psdLdir.BS— 'GetValue(state.value); 
if(state_value^O) 

{ 

// the user has entered a directory name of his own 

const char *temp_directory=psdl_files— Normalize(psdl_dir— TextQ); 

char * new-directory =new cliar[strlen(temp_directory)-f 1]; 

strcpy( new .directory, temp_directory); 

if(psdl_files — IsA Directory (new-directory)) 

{ 

psdl.dir— Message(new.directory); 
ada_spec_dir—Message(new .directory); 
ada.body.dir— Message(new.directory); 
psdl -files —'Set Directory (new .directory); 
spec .files— Set Directory (new .directory); 
bodv_files— ►SetDirectory(new.directory); 

}; 

delete new.directory; 
psdl.dir.BS— SetValue(O); 

}; 



void input_file_selecter::specjselected() 

{ 

int state.vaLue; 

spec -files _BS— >GetValue(state .value); 
if(state.value/0) 

{ 

int index=spec .files— 'Selection(O); 

if(specJiles— dsADirectory(spec .files— Path(index))) 

{ 

ada_spec_dir—Message(spec .files— Path(index)); 
ada.body.dir— Message(spec_files— Path(index)); 
spec-files— Set Directory (adajspecjdir— Text ()); 
body-files — SetDirectorv(ada.spec_dir— TextQ); 
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} 

else 

{ 



spec Jile_name—Message(spec -files— ^Path(index)); 

// update the other file names if the correct ones exist 



}; 

spec_files_BS— >SetValue(0); 

}; 

} 

void inputJUejselecteriupdate^adajspec-dirO 

{ 

int state.value; 

ada.spec_dir_BS— »GetValue(state_value); 
if(state_value/0) 

{ 

// the user has entered a directory name of his own 

const char *temp_directory=spec_files— ► Normalize(ada-spec_dir— >Text()) 
char *new_directory=new char[strlen(temp_directory) + l]; 
strcpy(new -directory, temp -directory); 
if(spec_files^Is A Directory (new .directory)) 

{ 

adajspec.dir— >Message(new_directory); 
ada_body_dir— ► Message(new_directory); 
spec-files— >Set Directory (new-directory); 
body_files— >-SetDirectory (new -directory); 

}; 

delete new.directory; 
ada_spec_dir_BS— ►SetValue(O); 

}; 



void input_file_selecter::bodyjselected() { 
int state.value; 

body_files_BS— >GetValue(state_value); 
if(state.value^O) 

{ 

int index=body_files — Selection(O); 
if(body_files— IsADirectory(body_files^Path(index))) 

{ - 

ada_body.dir— >Message(body_files— ^Path(index)); 
body-files— ►SetDirectory(ada_body_dir— >Text()); 

} 

else 

{ 

body_file_name— *Message(body_files^ Path (index)); 

}; 

body.files.BS — SetValue(O); 
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}; 

} 

void input_filejselecter::update_ada_body_dir() 

{ 

lilt state-value; 

ada_body_dir_BS^GetValue(state_value); 

if(state_value^O) 

{ 

// the user has entered a directory name of his own 

const char *temp_directory=body_files— ►Normalize(adcLbody_dir— ►TextQ); 
cliar *new_directory=new cliar[strlen(temp_directory) + l]; 
strcpy( new .directory, temp .directory); 
if(body_files— ds A Directorv( new-directory)) 

{ 

ada_body_dir— Message(new-directory); 
bod v -files— *Set Directory (new -directory); 

}; 

delete new-directory; 
ada_bodv-dir_BS— SetValue(O); 

}; 



void input -Rlejselecter::cancel() 

{ 

World *w=GetWorld(); 
w— *Remove(tliis); 
delete this; 

} 

void input_file_selecter::okay() 

{ 

int command-status; 

World *w=GetWorld(); 

char *psdlJile=NULL; 
char *spec_file=NULL; 
char *body_file=NULL; 
ostrstream psdl_file_buffer; 
ostrstream spec-file -buffer; 
ostrstream body -file-buffer; 

// verify that all of the selected items are files 
if(psdl_files— Selections()>0 L&z bodyJiles-^SelectionsQ > 0 && 
spec-files— *Selections() > 0) 

{ 

// something has been selected in each browser 
//so see if they are all valid files 

int psdl_file-num=psdl_files— *Selection(0); 

int spec -file _num=spec -files — Selection(O); 

int body_file-num=body_files — Selection(O); 

if(!psd 1-files — Is A Directory (psdl -files— Path(psdl_file_num))) 
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{ 

// not a directory so get the file-name 

psdl .file .buffer <C psdl-files^Path(psdl_file_num); 

psdl _file-buffer <C ends; 

psdl-file-psdl_file_buffer.str(); 

}; 

if( !specJiles^IsADirectory(spec_files— ►Path(spec -file _num))) 

{ 

// not a directory so get the file-name 

spec -file -buffer <C spec_files^Path(spec -file _num); 

spec -file -buffer <C ends; 

spec_file=spec -file -buffer. str(); 

}; 

if(!body_files— IsADirectory(bodyJiles— ►Path(body_file_num))) 

{ 

// not a directory so get the file-name 
bodyJile_buffer <C body-files— *Path(bodyJile_num); 
bodyJile_buffer <C ends; 
bodv_file=bodyJile_buffer.str(); 

}; 



if(spec_file^NULL kk psdl Jile^NULL kk body Jile^NULL) 

{ 

// all were valid files so process the addition 
char *temp_dir=getenv(TEMP -ENVIRONMENT); 

if( temp_dir==NULL) 

{ 

temp_dir=new char[strlen(DEFAULT-TEMP) + l] 
strcpy(temp_dir, DEFAULT .TEMP); 

}; 



cliar *error-file=tempnam(temp_dir,"tmpa"); 
ostrstream command-buffer; 

command-buffer <C SB.PROGRAM " ca ada "; 
command-buffer <C psdl.file; 
command-buffer <C " " <C spec_file; 
command-buffer <C " " body-file; 
command-buffer <C " > " <C error.file <C ends; 

ostrstream rm_buffer; 

rm.buffer <C "rm u <C error -file <C ends; 



char *comniand=command_buffer.str(); 



com m an djs t a t u s=sy st em ( co m m an d ) ; 

if(commandjstatus^O) 



// display error info 
error_viewer *error_view=new 
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error _viewer(" Add Component M ,error_file) 
\v— dnsertApplication(error_view); 
char *rm=rm_buffer.str(); 
svstem (rm); 

} 

else 

{ 

char *rm=rm_bufTer.str(); 
system (rm); 



w— - Re move ( t his ) ; 
delete this; 

} 

else 

{ 

vv — RingBell(lOO); 

}; 

} 

else 

{ 

w— RingBell(lOO); 



}; 



} 



void input Jile_selecter::new_psdlJile_name() 

{} 

void input _file_selecter::new^spec_file_name() 

{} 

void input Jile_selecter::ne\v Jbodv Jile_name() 

{} 
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#include <InterViews/button.h> 
#include <InterViews/message .h> 
#include <InterViews/strbrowser . h> 
#include ’’keyword-select er . h” 
#include <InterViews/2 . 6/_enter . h> 
#include <stream.h> 

#include ” component.selecter . h” ; 
#include <InterViews/world . h> 
#include <strstream.h> 

#include <stdlib.h> 

#include <string.h> 

#def ine TEMP ENVIRONMENT "TEMP" 
#def ine CAPSENVIRONMENT "CAPS" 
#define DEFAULT-TEMP "/tmp" 
#define KWL.PREFIX "tmpkl" 

#define ERROR-PREFIX "tmperror" 
#define KWQ.PREFIX "tmpcl" 

#define SB-PROGRAM "sb" 



key word-selecter::key word jselecter(const char *name):keywordjselecterxore(name) 

{ 

} 

void keyword-select.er:: 
okay( ) 

{ 

int commandjstatus; 

// check buttonstate for a 0 value 

World * w = GetWorld(); 

// check to ensure that at least 1 keyword was selected 
if (selected-browser— CountQ > 0) 

{ 



ostrstream command-buffer; 
ostrstream remove-buffer; 

char *caps_dir = getenv(CAPSENVIRONMENT); 
char *temp_dir = getenv(TEMPENVIRONMENT); 
if (temp-dir == NULL) 

{ 

temp_dir = new char[strlen(DEFAULT_TEMP) + 1]; 
strcpy( temp_dir, DEFAULT-TEMP); 

}; 



char *list_file = tempnam(temp_dir, KWL.PREFIX); 
ofstream output(list Jile); 
if (output) 
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// opened the kwl file fine 

hit i; 

for (i = 0; i < selected -browser— *Count(); i++) 

{ 



// output each kw selected to the file 
output <$: selected -browser^String(i) <C "\n"; 

}; 

output. close(); 
w — * Remove( this ) ; 



char * result Jile = tempnam(temp_dir, KWQ.PREFIX); 
char *errorJile = tempnam(temp-dir, ERROR-PREFIX); 
command-buffer SB.PROGRAM " kwq ada " <C list-file <£ " 
command-buffer result-file <C M > " error-file <C ends; 

remove-buffer "rm 

remove-buffer <C list-file « " " <C error-file; 
remove-buffer ends; 

char *rm_comniand = remove.buffer.str(); 

char ^command = command-buffer. str(); 



command_status=system(conimand); 

com ponent_selec ter * com ponent-selecter.by .keyword; 

if (commandjstatus^O) 

{ 

cerr < "AN ERROR OCCURED WITH COMMAND " < command < "\n"; 

} 

else 

{ 

// no error occured so create the component selecter 

component_selecter_by .keyword = new 
component jselecter( "component .select er_by_keyword M ); 

// pass the result stream to selecter to process 

component-selecter_by -key word— ► 
Insert_components( result -file); 

}; 



// remove temp files 
system(r m .command); 
delete command; 
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delete rmxommand; 



w— insert Application(component-selecter_by .keyword); 
delete this; 

} 

else 

{ 

cerr < "UNABLE TO OPEN THE kwl FILE\N"; 

w— ‘Remove(tliis); 

}; 

} 

else 

{ 

w-RingBell(lOO); 

// reset the button state 



}; 



void key word jselecter:: 

cancel () 

{ 

World *w = GetWorld(); 
w— *Remove(tliis); 
delete this; 

}; 



void keyword jselecter:: 

newjselectionQ 



{ 



int state .value; 

the_choice_BS-^GetValue(state .value); 
if (state-value ^ 0) 

{ 

// get the new selection and check it against the 

// selected list if it is not there than add it 

int selected index = choice-browser— Selection(O); 

char *new_selection = choice -browser — String(selected index) 

if (selected .browser— Index( new .selection) < 0) 

{ 

// not in the selected browser so append it 
selected .browser— Append(new .selection); 
the .choice _BS— SetValue(O); 

}; 

}; 

} 

void keyword _selecter:: 

remove-select ion( ) 
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int state.value; 

the_selected_BS— GetValue(state .value); 
if (state.value ^ 0) 

{ 

// remove the selected entry from the browser 
int selected-index = selected -browser^Selection(O); 
selected -browser—* Remove(selected index); 
the -selected -BS — SetValue(O); 

}; 

} 



void keyword J5electer:: 

Insert -key words() 



{ 



int command-status; 
ostrstream command-buffer; 
ostrstream remove-buffer; 



char *caps_dir = getenv(CAPS ENVIRONMENT); 
char *temp_dir = getenv(TEMP-ENVIRONMENT); 
if (temp.dir == NULL) 

{ 

temp.dir = new cliar[strlen(DEFAULT_TEMP) -f I]; 
strcpy( temp.dir, DEFAULT .TEMP); 

}; 



command-buffer <C SB-PROG RAM <C " kwl ada "; 
char ^list_file = tempnam( temp.dir, KWL.PREFIX); 
char *error_file = tempnam(temp_dir, ERROR-PREFIX); 
command-buffer <C list-file <C " > " <C error.file <C ends; 

remove-buffer "rm ”; 

remove-buffer list-file " " <C error-file <C ends; 

char *rm_command = remove. buffer.str(); 

char ^command = comman(Lbuffer.str(); 
command-Status=system( command); 
if (command-5tatus==0) 

{ - 

//no error occured so read in the kwl 
ifstream kwf(list-file); 
if (kwf) 

{ 

char *next_keyword = new char [256]; 

// file opened fine 
while (!kwf.eof()) 

{ 

kwf.getline( next-key word, 256); 
kwf ws; 
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choice-browser—- ►Append(next -keyword); 

}; 

} 

else 

{ 

cerr < "UNABLE TO OPEN OUTPUT FILE FOR COMMAND 

cerr <C command "\n"; 

}; 

} 

else 

{ 



// display error info 

cerr < "AN ERROR OCCURED WITH COMMAND " < command < "\n"; 



// remove temp files 
system( rm.com maud); 
delete command; 
delete rm .command; 



}; 
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#include ClnterViews/button . h> 
#include <InterViews/box.h> 
#include ClnterViews/message . h> 
#include <InterViews/menu.h> 

# include < Interviews /text edit or .h> 
# include <Int erViews/textbuf f er .h> 
#include <InterViews/world . h> 
#include ”psdl_viewer .h” 

#include ”spec_viewer.h” 

#include ” save_browser-dialog . h” 
#include ”delete_warning.h” 

#include <string.h> 

#include <InterViews/2 . 6/_enter .h> 
#include <strstream.h> 

#include <stream.h> 

#include <stdlib.h> 



#def ine TEMP ENVIRONMENT "TEMP" 
#def ine CAPS-EN VIRONMENT "CAPS" 
#define DEFAULT-TEMP "/tmp" 
#define PSDL.PREFIX "tmpvp" 

#define SPEC-PREFIX "tmpvs" 

#define BODY-PREFIX "tmpvb" 
#define ERROR-PREFIX "tmperror" 
#define SB.PROGRAM "sb" 



psdl_vievver::psdl_viewer( const char* name) : psdl_viewer_core(name) 

{ 

component_name=(char *)name; 
ostrstream view-name-buffer; 

view _name-buffer name "PSDL Specification" ends; 

the -file .name— Remove(default-inessage) ; 
delete default-message; 

Message* the_file _message=new Message("f ile_naine", 

view-name_buffer.str(), 

Center); 

the_file_name— Tnsert(the-file-message); 
the -file jname— Change(); 

// get4he files from the softbase and open the psdl file 

lilt command-status; 
ostrstream command-buffer; 
ostrstream remove-buffer; 

char *caps_dir = getenv(CAPS-ENVIRONMENT); 
char *temp.dir = getenv(TEMPENVIRONMENT); 
if (temp_dir == NULL) 

{ 

temp.dir = new char[strlen( DEFAULT .TEMP) + 1]; 
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strcpy(temp-dir, DEFAULT .TEMP); 



}; 



comm and. buffer <C SELPROGRAM <C " cv ada " name; 

psdlJile = tempnam(temp_dir, PSDL.PREFIX); 
spec_file = tempnam(temp_dir, SPEC-PREFIX); 
body-file = tempnam(temp.dir, SPEC-PREFIX); 

char *error_file = tempnam(temp-dir, ERROR-PREFIX); 

command-buffer <C " " <C psdlJile <C " " <C spec-file; 
command-buffer <C " " <C body-file; 

command-buffer <C " > M <C error-file <C ends; 
remove-buffer <C "rm " <C errorJile <C ends; 



char ^command = command_buffer.str(); 
command_status=system(command); 
if (command-status=:=0) 

{ 

// no error occured so read in the psdLfile 
ifstream psdl(psdl -file); 
if (psdl) 

{ 

ostrstream construct .buffer; 
while(!psdl.eof()) 

{ 

char text=psdl.get()^ 
ifftext^EOF) 

{ 

construct -buffer, put (text); 

}; 

}; 

the_string=construct .buffer. str(); 
int theJength=strlen(the_string); 

the_buffer=new Text Buffer(the string, the Jength, the Jength); 
the-editor— ►Edit(the.buffer); 

} 

else 

{ 

cerr < "UNABLE TO OPEN PSDL FILE FOR COMMAND 

cerr <C command <C "\n"; 

}; 

} 

else 

{ 



// display error info 

cerr < "AN ERROR OCCURED WITH COMMAND " < command <C "\n' 
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}; 



// remove temp files 

char *remove_command=remove_buffer.str(); 
sy s t e m ( r e m o ve _co m m a n d ) ; 
delete remove-command; 
delete command; 



} 

void psdLvievver::_Saveas() 

{ 



ostrstream def_name_buffer; 

def_name_bufTer <C component-name <C ".psdl" <C ends; 
char *deLname=def_name_buffer.str(); 

save-browser.dialog *save.browser=new save_browser-dialog(def_name); 

World *w=GetWorld(); 

w— InsertTransient (save -browser, this); 

boolean save Jlag=save .browser— AcceptQ; 

if(save_flag) 

{ 

ofstream output _file(save.browser— *file.name()); 

output .file <C the_string; 

output_file.close(); 



w — R e mo ve ( s a ve.b rovvse r ) ; 
delete save .browser; 



} 

void psdl_viewer::_Print() { 

/* unimplemented */ 

} 

void psdl.viewer::.Delete() 

{ 

World* w=GetWorld(); 

delete.warning *warning=new delete.warning( M the_warning"); 
w—InsertTransient( warning, this); 
if( warning— Accept()) 

{ 



// create list of components 
hit command-status; 
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ostrstream command-buffer; 
ostrstream remove .buffer; 



char *caps_dir = getenv(CAPS ENVIRONMENT); 
char *temp.dir = getenv(TEMP-ENVIRONMENT); 
if (temp.dir == NULL) 

{ 

temp.dir = new cliar[strlen(DEFAULT_TEMP) + 1]; 
strcpy( temp.dir, DEFAULT.TEMP); 

}; 



command-buffer <C SB.PROGRAM " cd ada M ; 
command-buffer <C component-name <C " "; 
char *errorJile = tempnam(temp_dir, ERROR-PREFIX); 
command-buffer <C " > " <C error.file <C ends; 

remove-buffer "rm 
remove-buffer <C error .file <C ends; 

char *rm_command = removeLbuffer.str(); 

char ^command = command-buffer. str(); 

// put dialog here to ensure this is what you want 

command_status=system(command); 
if (command-Status^O) 

{ 



// display error info 

cerr < "AN ERROR OCCURED WITH COMMAND " < command < "\n" 



// remove temp files 
system ( rm.command ) ; 
delete command; 
delete rni-command; 



}; 

w— +Remove(warning); 
delete warning; 

} 

void psdl_viewer::_QuitView() 

{ 

World *w=GetWorld(); 
w— ►Remove(this); 
ostrstream remove-buffer; 

remove-buffer < "rm " < psdLfile <C " " < spec-file; 
remove-buffer <C " " <C body .file <C ends; 
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char *remove=remove_bufFer.str(); 
system(remove); 




delete the_string; 
delete the.bufler; 

/ / delete this; 

} 

void psdLviewer::-Find() { 

/* unimplemented */ 

} 

void psdl_vie\ver::view_spec_action() 

{ 

World *w=GetWorld(); 

spec_vie\ver * new .view =new spec_viewer(component_name, 

spec Jile, 
bodyJile); 

\v— Insert Application(aew_view); 

} 

void psdLviewer:: Handle ( Event &; e) 

{ 

}; 
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#include <InterViews/button.h> 
#include <InterViews/streditor . h> 
#include <InterViews/f ilebrowser .h> 
#include <InterViews/world . h> 
#include ”query_f ile_dialog .h” 
#include <InterViews/2 . 6/_enter .h> 
#include <stream.h> 

#include <string.h> 

#include <sys/param . h> 

#include <stdlib.h> 

#include <strstream.h> 
extern "C" 

{ 

extern char *getwd(char *); 



}; 



query _iile_dialog::query_file_dialog(const char* name) : query Jile_dialog_core(name) 

{ 

char pathname[MAXPATHLEN]; 
getwd(pathname); 

the_fde_browser—*Set Directory (pathname); 

directory jiame-* Message(the _file_browser-+GetDirectory()); 

} 

void query_iile_dialog::file_name_action() 

{ 

World *w=GetWorld(); 

// ensure file does not already exist 
int state.value; 

the_file_name_BS— *GetValue(state_value); 
if(state.value^O) 

{ # 

int the_index=the_fileJ)rowser^Index(the iile mame— *Text()); 
if(the_index > 0) 

{ 

w^RingBell(lOO); 

} • 
else- 

{ 

// update the save browser button to 1 to indicate 
// success 

the Jile^browser^Select (the .index); 
dialog_BS^SetValue(l); 



}; 
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the_file_name_BS— SetValue(O); 



}; 



} 

void query_file_dialog::directory_action() 

{ 

World *w=GetWorld(); 
int state .value; 

directory _name_BS—GetValue(state .value); 
if(state_value^O) 

{ 

// the user has entered a directory name of his own 
const char 

* temp_directory= the -file .browser— ► Normalize(directory_name— ►' Text ()); 

char *new_directory=new char[strlen(temp_directory)-bl] 

strcpy( new .directory, temp .directory ) ; 

if( t he Jile. browser— Is A Directory (new .directory)) 

{ 

directory .name- Message( new .directory); 
t he.fi le .browser— SetDirectory(new .directory); 

} 

else 

{ 

w — RingBell(lOO); 

}; 

delete new.directory; 
directory jiame.BS— Set Value(O); 

}; 



} 

void query Jile_dialog::file_browser_action() 

{ 

int state.value; 

file-browser _BS— GetValue(state .value); 
if(state_value^O) 

{ 

int index=the JileJbrowser — Selection(O); 

if( the _file_browser—IsA Directorv(the_file .browser— Path(index))) 

{ - 

directory .name— Message ( the _file_browser— Path(index)); 
the_file .browser— Set Directory(directory .name—' Text ()); 

} 

else 

{ 

the Jile .name— Message( the .file-browser— String(index)); 
dialog.BS — SetValue(l); 

}; 
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file-browser -BS^SetValue(O); 



}; 

} 

void query Jile_dialog::canceLaction() 

{ 

int state.value; 

cancel_BS— ►GetValue(state-value); 
if(state-value^O) 

{ 

// a value oilier than 1 indicates false 

dialog-BS^SetValue(2); 

cancel _BS— * Set Value(O); 

}; 

}; 



void query _file_dialog: :okay_action() 

{ 

World *w=Get\Vorld(); 
int state -value; 

okay-BS^GetValue(state.value); 

if(state_value^O) 

{ 



int the_index=the_file_browser-^Index(the JHe_name— *Text()); 
if(the_index < 0) 

{ 

// file already does not exists 
w — RingBell( 100); 

} 

else 

{ 

// update the save browser button to 1 to indicate 
If success 

dialog_BS^SetValue( 1 ) ; 

}; 

okay.BS^SetValue(O); 



}; 

} 

const char *query_file_dialog::file_name() 

{ 

ostrstream full -file-name; 

full_file_name the_file_browser— »GetDirectory(); 

full_file-name the-file-iiame— Text(); 

return full_file_name.str(); 
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}; 
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#include <InterViews/button.h> 
#include <InterViews/streditor . h> 
#include <InterViews/f ilebrowser . h> 
#include <InterViews/world .h> 
#include ” save_brows er.dialog . h” 
#include <InterViews/2 . 6/_enter . h> 
#include <streain.h> 

#include <string.h> 

#include < sy s/par am. h> 

#include <stdlib.h> 

#include <strstream. h> 
extern "C" 

{ 

extern char *getwd(char *); 



}; 



save_browser_dialog::save_browser_dialog(const char* name) : save_browser_dialog_core(name) 

{ 

default_name=(char *)name; 
char pathname[MAXPATHLEN]; 
getwd(pathname); 

the_file_browser-^SetDirectory(pathname); 

the_directory_name— Message(the Jile_browser-+GetDirectory()); 
the .file -name— Message( default .name) ; 



} 

void save_brovvser_dialog::file_browser_action() 

{ 

int state-value; 

file-browser JBS— Get Value(state-value); 
if(state_value/0) 

{ 

int index=the_file_browser— +Selection(0); 

if(the_file_browser— dsA Directory (the -file -browser— *Path(index))) 

{ 

the-directory-name— Message(the_file J)rowser— +Path(index)); 
the _file_browser— Set,Directory(thejdirectory _name— ►Text ()); 

}; - 

file_browser _BS— >SetValue(0); 

}; 

} 

void save_browser-dialog: :update-file.name() 

{ 

World *w=GetWorld(); 

// ensure file does not already exist 
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int state .value; 

file_name_BS^GetValue(state_value); 

if(state.value^O) 

{ . 

int the Jndex=the Jile -browser— dndex(the -file jiame— ►TextO); 
if( the .index > 0) 

{ 

// file already ensts so do not accept it 
w — RingBell(lOO); 

} 

else 

{ 

// update the save browser button to 1 to indicate 
// success 

dialog.BS— SetValue(l); 

}; 

file.name.BS — SetValue(O); 

}; 



} 

void save .browser .dialog ::update_directory() 

{ 

World *w=Get\Yorld(); 
int state.value; 

new. directory _BS— Get Value(state .value); 
if(state_value^O) 

{ 

// the user has entered a directory name of his own 
const char 

* temp_directory= the -file .browser— Normalize(the_directory .name— ►TextO); 

char * nevv.directory =new char[strlen(temp_directory)+l] 
strcpy( new .directory, temp_directory); 
if(the_file_browser—dsA Directory (new. directory)) 

{ 

the.directory .name— ► Message (new .directory) ; 
the_file_browser— SetDirectory (new directory); 

• ) 
else 

{ 

w— RingBell( 100); 

}; 

delete new.directory; 
new.directorv-BS— SetValue(O); 

}; 

} 



void save .browser .dialog: :cancel_action() 

{ 
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int state_value; 

cancel _BS-+GetValue(state_value); 
if(state_value^O) 

{ 

//a value other than 1 indicates false 
dialog.BS— ►SetValue(2); 
cancel .BS^SetValue(O); 

}; 



void save.browser .dialog: :ok_action() 

{ 

World *w=GetWorld(); 
int state-value; 

ok-BS-^GetValue(state.value); 
if( s t ate .valued 0) 

{ 



int the_index=the_file_bro\vser— Index(the Jile .name— >Text()); 
if(t he.index > 0) 

{ 

// file already exists so do not accept it 

w— RingBell(lOO); 

} 

else 

{ 

// update the save browser button to 1 to indicate 
// success 

dialog.BS— SetValue( 1); 

}; 

ok_BS— ►SetValue(O); 



}; 

} 

const char *save_browser .dialog ::file_name() 

{ 

ostrstream full -file-name; 

full-file_name <C the_file-browser— *Get Directory (); 
full -file_name <C the_file_name— »Text(); 

return full_file_name.str(); 

}; 
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#include ClnterViews/painter . h> 
#include <InterViews/shape . h> 
#include <InterViews/sensor . h> 
#include ClnterViews/world . h> 
#include ”SB_raain_jnenu.h” 

# include < Inter Views/2 . 6/_enter . h> 

static PropertyData properties]] = { 
#include ” sof tbase-props” 

{ M *title M , M CAPS SOFTBASE"}, 

{ nil } 

}; 



static OptionDesc options)] = { 
{ nil } 

}; 



int main (int argc, cliar** argv) { 

World* w = new World( M **** M , argc, argv, options, properties); 
SB_main_menu* the_main_menu = new SB_main_menu( M the_main_menu") 
w— ►Insert Application(the_main_menu); 

w— Run(); 
delete vv; 
return 0; 

} 



#include <InterViews/button.h> 
#include <InterViews/box . h> 
#include <InterViews/message . h> 
#include <InterViews/menu.h> 
#include ClnterViews/texteditor . h> 
#include < InterViews/text buffer . h> 
#include ClnterViews/world .h> 
#include ” spec.viewer . h” 

#include ”psdl_viewer . h” 

#include ”body_viewer . h” 

#include ” save.browser_dialog . h” 
#include <InterViews/2 . 6/_enter . h> 
#include <strstream . h> 

#include <stream.h> 

#include <stdlib.h> 

#include <string.h> 



spec_viewer::spec_viewer(const char* name, char *spec_file, char *body_file_in) : 
spec .viewer _core( name) 



{ 



component_name=(cliar *)name; 
body. file=body .file Jn; 
ostrstream view .name-buffer; 

view jiame.bufTer <C component-name "Implementation Specification" <C ends 
t he Ji le _n ame^ Remove( defa ul t_m essage) ; 
delete default-message; 



Message* the .file _message=new Message("f ile_name", 

view_name_buffer.str(), 

Center); 

t he _fi le _n a me— ► I n ser t ( t h e _fi 1 e .message ) ; 
the -file _name — ChangeQ; 

ifstream spec(spec_file); 
if (spec) 

{ 

ostrstream construct .buffer; 
wliile(!spec.eof()) 

{ 

char text=spec.get(); 
if(text#EOF) 

{ 

construct .buffer. put( text); 

}; 

}; 

the jstring=construct .buffer .str( ) ; 
int t he Jength=strlen( the string); 

the_buffer=new TextBuffer(the string, the Jength,the Jength); 
the .editor— Edit(theJbuffer); 

} 

else 
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{ 

cerr < "UNABLE TO OPEN SPEC FILE TO VIEW FILEJAME IS 

cerr spec-file M \n M ; 



} 

void spec.viewer::_Saveas() 

{ 

ostrstream def_name_bufFer; 

def_name.buffer component_name ".spec. a" ends; 
char *def_name=def_name_bufter.str(); 

save .browser .dialog *save_browser=new save_browser_dialog(def_name) 

World * W— Get World( ) ; 

w—dnsertTransient (save .browser, this); 

boolean save_flag=save .browser — Accept (); 

if(save_flag) 

{ 

ofstream output_file(save_browser— ^file_name()); 
output-file < the_string; 
output-file. close(); 

}; 



w— R emove( save.browser ) ; 
delete save.browser; 



} 

void spec_viewer: :_Print() { 

/* unimplemented */ 

} 

void spec _v ie wer : : _Q ui t Vie w ( ) 

{ 

// remove temporary file and remove application from world 
World *w=GetWorld(); 
w— ►Remove(this); 

/ / delete this; 

} 

void spec_viewer::_Find() { 

/* unimplemented */ 

} 

void spec_viewer::view_body_action( ) 

{ 



World *w=GetWorld(); 

body .viewer *new_view=uew body_viewer(cornponent_name, 
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w— ^Insert Application(new_view); 



bodyJile); 



} 
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